I 


Page 


0 File: 8086 

Assembler IV. 0 

C 1 e 3 


0000 i 
0000 i 



.MACRO 

ifFlatCab le 

f 

oooo: 



CMP3IM 

cardTyp e, 1 

€ 

0000! 



UE 

i 

$to 4* 

0000! 

0000! 



. ENDM 


€ 

0000! 

0000 

dotOr, . EQU 

0 ifor printing dots when reading disk 

0000 ! 

0001 

dotOff . EQU 

1 


0000! 

0000! 



. PROC 

C 11BOOT 

f 

0000 ! 



constBoot 



0000 ! 

0000 

. WORD 

0 ; length of code file in bytes 

i 

0002! 




> must be zapped in by hand due to 

m 

0002! 




;some stupid assemsbler restriction 


0002! 

0002 I 




€ 

0002! 
0002! 
0002! 



; CONSTBOOT — 

} 

CONSTELLATION II SOOT FOR THE IBM/PC 

C 

0002! 





0002! 
0003 i 

FC 


CLD 


< 

0003! 

sc 

CB 

nov 

BX, CS ;set up segment registers 


0005! 

8E 

m 

nov 

DS, BX 

• 

0007! 

8E 

€3 

NOV 

ES, BX 

0009! 

0009! 
000C ! 

A2 


MOV 

saveHost. AL ; server host number to use 

€ 

OOOC ! 

FA 


CLI 

;disable interrupts while fixing stack 


GOOD! 

33 

CO 

XOR 

AX, AX 

m 

OOOF ! 

BE 

DO 

MOV 

SS, AX 

m 

0011 ! 

BC 

00 7C 

MOV 

SP, 7CC0H ; stack just below us 


0014! 

0014! 

06 


PUSH 

ES 

f 

0015! 

8E 

CO 

MOV 

ES, AX 


0017! 

SF 

6C 00 

MOV 

D1»1EH#4 ; f i x up interrupt vectors IB and 1C 

i 

001 A! 

A1 


MOV 

AX, iRetAdd <• to point to iRet on ram 


001D ! 

SB 

iE 

MOV 

EX, iRetAdd+2 


0021 ! 

AB 


STOSW 


i 

0022 ! 

93 


XCHG 

AX, BX 


0023! 

AB 


STOSW 



0024 ! 

93 


XCHG 

AX, BX 

€ 

0025! 

AB 


STOSW 


0026 ! 

93 


XCHG 

AX, BX 


0027! 

AB 


STOSW 


m 

0028! 

07 


POP 

ES 

m. 

0029 ! 
0029 ! 

002 A 1 

FB 


STI 

/enable interrupts 

f 

002A! 

J34 

00 

MOV 

AH, 0 / identify card type 


0020 I 

FF 

IE 

CALLL 

( romlo ) 

* 

0030! 

A2 


MOV 

cardType, AL. 

m 

0033! 

0037! 

88 

26 #### 

MOV 

userHost, AH ; save xporter host number 

< 


f 



*** CONSTELLATION' II BOOT FOR THE IBM/PC 




« 

€ 

€ 

€ 

f 

1 

f 

f 

t 

t 

l 

f 

I 

t 

c 

t 

f 

i 

€ 

< 


Page 


CIIBOOT 


F 1 i B 


0037: 

B4 

00 


MOV 

AH, 0 

00381 

BO 

02 


MOV 

AL. / 2 

003B 1 

CD 

10 


I NT 

10H 

003D 1 



bootStart 


003D 1 

C6 

06 01 


MQVBIM 

dots, dotOff 

0042! 

AO 



MOV 

AL, saveHost 

0045! 

A2 

•a-### 


MOV 

serverHcst,AL 

0048! 
0048 1 
004B ! 

E8 



C ALL 

logon 

004B ! 




ifFlatCab1e $10 

0052! 

ES 

•a*### 


CALL 

findServer 

0055! 

72E6 


JC 

bootStart 

0057! 

0057! 

C6 

06 00 

$10 

MOVEIM 

dots/ dotOn 

005C ! 

E8 



CALL 

home 

005F! 

ES 



CALL 

findBtDisk 

0062 ! 

72D9 


JC 

bootStart 

0064! 
0064! 
0067! 

E8 

■a-W-JHfr 


CALL 

findMtDisfc 

0067! 




ifFlatCable $20 

006E ! 

E8 



CALL 

omniHe Ho 

0071 ! 
0074! 

E9 

■a-S-S-a* 

$20 

JriP 

$30 

0074! 

0077! 

E8 


$30 

CALL 

flathe 11o 

0077! 

ES 



CALL 

boot 

007A! 

EBC1 


JMP 

bootStart 


007C 
007C; 
007C 
007C 
007C 
007C 
007C 


init video to 80x25 BW 


.INCLUDE CONSTBOOTi.TEXT 

; ****#***4H***##*#******#************#***»************'*•*••»• •**••***•*•*•**•**•*• 


; EQUATES 


#*#*#****»*#*•*#•*#*****•* * *•*•■*•*• 


007C ! 

0007 

defAttr 

, EQU 

7 

007C ! 

0080 

tabB i t 

. EQU 

soh 

007C ! 

OOOD 

cr 

, EQU 

ODH 

007C ! 

OOOA 

If 

. EQU 

OAH 

007C ! 

0007 

bell 

. EQU 

7 

007C ! 

0000 

echo 

. EQU 

0 

007C ! 

0001, 

noEc h o 

, EQU 

1 

007C ! 

ooos 

bs 

. EQU 

8 

007C ! 

OOOA 

nameLen 

. EQU 

10 

007C ! 

OOOS 

passLen 

. EQU 

8 

007C ! 

0004 

ad dLen 

, EQU 

4 

007C ! 

0032 

rdCmd 

. EQU 

32H 

007C ! 

0200 

sec tSiz e 

. EQU 

512 

007C ! 

0004 

ucsdDirBlks 

. EQU 

4 

007C ! 

0500 

drvrAdd 

. EQU 

500H 

007C ! 
007C ! 

0600 

biosAdd 

, EQU 

600M 

007C ! 

0004 

ibmDos 

, EQU 

4 

007C ! 

0011 

UCSD40 

. EQU 

17. 


r -a- -a- •»• # -a- ■& & ■» ■» -> ■» *• #■ & ■«• # # * # •a- ## -a- #■•»■ * * #• ■s- -a- #■# ■&#■# •» # 

;default attribute byte for video i/o 
/tab bit for printStr 
icarriage return 
/line feed 
; bell 

;echo char when inputing from keyboard 

;bac k space 
; length of user name 
i length of user password 
; length of abs disk address 
;disk read sector command 
/size of one sector 

;number of blocks in UCSD directory 
; ucsd attached driver loaded at this address 
i msDos bios loaded at this address 

;0/S type in Network User 
;UCSD 4. 0 user type 


I 

t 

€ 

I 

€ 

f 

< 

f 

I 

I 

< 

| 

I 

C 

t 

I 

< 

i 

i 

i 

i 
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444 


Page - 2 CIIBQOT File: CONSTBOOT1. TEXT 


444 


007C ! 
007C ‘ 

0003 






msDosVo 1 

. EQU 

3 ; volume type in drive volume 

tab le 

007C ; 

OEOO 






xy GetUser 

. EQU 

OEOOH ;gotoxy(0.14) 


007C «' 

1000 






xyGetPass 

. EGU 

1000H ;gotoxy<0,16) 


007C ! 

1200 






xyErrMsg 

. EGU 

1200H igotoxy (0, 18) 


G07C ! 

1200 






x yInvUsr 

. EGU 

1200H i 


G07C ! 
007C ! 

1200 






xyInvfass 

. EGU 

1200H i 


G07C ! 

OOOA 






mntMax 

. EQU 

10. .maximum volumes that can be 

mounted 

007C I 
007C ! 

0000 






true 

. EQU 

0 


007C 1 
007C 1 
007C 5 

0001 






false 

. EQU 

1 


007C ! 









oo 7C: 

007C i 
007C { 







i 

; CONSTANTS 

i 

-- messages 

. . etc. 


007C ! 








*4444444444444444444 4444444 444444444444444444 


007C { 
007C; 

OD OA 

OA 

OA 

OA 



constMsg 

. BYTE 

CT; If. If; If; If 


0081 ! 

90 







. BYTE 

16. +tabB i t 


0082! 

2A 







. ASC11 



0083! 
0085 ! 

OD OA 







. BYTE 

cr ; 1 f 


0085! 

94 







. BY IE 

20. +tabB i t 


0086! 

2A 







. ASC11 

'••4 s ' 


0087! 

OD OA 







. BYTE 

cr ; I f 


0089! 
0089! 

9A 







. BYTE 

26. +tabBi t 


OOSA! 

43 20 

4F 

20 

■w CC 

20 

56 


. ASC11 

“C 0 R V U S SYSTEM S" 


00A5! 
00A8 I 

OD OA 

OA 






. BY TE 

cr, If; If 


00A8! 

96 







. BYTE 

22. +tabBit 


00A9! 

2A 20 

20 

20 

20 

20 

20 


.ASCII 

CONSTELLATION II'* 


OOC 3! 
OOC 6! 

OD OA 

OA 






. BYTE 

cr ; If; 1 f 


OOC 6! 

92 







. BY I E 

tabBit+18. 


OOC 7! 

2A 20 

20 

20 

20 

2A 

20 


.ASCII 

“■4 4 V 1. 5" 


OODF! 
OOEO! 

00 







. BYTE 

0 


GOEO! 

50 6C 

65 

61 

73 

65 

20 

nameflsg 

. ASC11 

"PIease enter your name: " 


OOFS! 

00 







. BYTE 

0 


00F9 ! 
00F9! 

50 6C 

65 

61 

/ o 

65 

20 

passMsg 

. ASC11 

"Please enter your password: " 


0115! 

0116! 

00 







. BYTE 

0 


0116! 

43 61 

6E 

20 

SE 

6F 

/ 4* 

badDiMsg 

.ASCII 

"Can not read the drive information table" 


013EI 

01 3F i 

00 







. BYTE 

0 


01 3F! 

44 72 

69 

76 

65 

20 

69 

invDi Msg 

.ASCII 

"Drive information table is not initialized" 


0169! 
016 A ! 

00 







. BYTE 

0 


016A! 

49 6E 

76 

61 

6C 

69 

64 

invUsrMs 

.ASC1I 

"Invalid user name" 


017B ! 

00 







. BYTE 

0 
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3 

C11 BOOT 

Fi 

1 ,'T - 

C0NSTB00T1.TEXT 

#-54- 

Oi7C i 










017C i 

49 

6E 

76 

61 

6C 

69 

6 4 

invPassMsg 

. ASC11 

018C I 

00 








bvte 

OISD 1 










018DI 

55 

73 

65 


73 

20 

O ci 

noBootMsg 

. ASC 11 

01 AS I 

00 








. BYTE 

01A9 










01A9! 

55 

7-5 
* w 

65 

/ a. 

~r**n 

/ o 

20 

6F 

badOsMsg 

. ASC11 

01 DO! 

00 








. BYTE 

01D1 i 










01D1 1 

OD 

OA 

OA 





waitMsg 

. BYTE 

01D4 I 

50 


65 

73 

•~r 

20 

61 


. ASC11 

01EE: 

07 

00 







. BYTE 

OlFOi 










OlFOf 








i noServerMsg 

. ASC I 

01F0 ‘ 








1 

. BYTE 

01FO! 










01FO I 

55 

43 

53 

44 


70 

2 

no InterpMsg 

. ASC11 

0218! 

00 








, BYTE 

0219! 










0219! 

55 

43 

53 

44 

20 

70 

PD 

noDrvrMsg 

. ASC11 

023C ! 

00 








. BYTE 

023D! 










023D! 

4D 

53 

2D 

44 

4F 

53 

2 O 

noBiosMsg 

. ASC11 

0257 ! 

00 








. BYTE 

0258 l 










0258! 

4D 



44 

4F 

S3 

o o 

noDosMsg 

. ASC11 

0271 ! 

00 








. BYTE 

0272 ; 










0272! 

55 

6E 

69 

74 

20 

35 

20 

noUnit5msg 

. ASC11 

0287 ! 

00 








. BYTE 

0288! 










0288! 

55 

43 

53 

44 

20 

76 

6F 

bad UnitSMsg 

. ASC11 

02B0! 

28 

hi) 

6C 

69 

70 

70 

65 


. ASC11 

02C3! 

00 








. BYTE 

02C4 ! 










02C4 ! 

50 

6C 

61 

63 

65 

-""V-v 

ciU 

40 

putFlopInMsg 

. ASC11 

02E2! 

00 








. BYTE 

02E3 ! 










02E3! 

42 

6F 

6F 

74 

20 

70 

61 

noBootParmMsg 

. ASC11 

0300 1 

00 








. BYTE 

0301 ! 










0301 ! 

45 

72 

72 

6F 

72 

20 

69 

readErrMsg 

. ASC11 

031C! 

00 








. BYTE 

03ID! 










031D! 

OD 

OA 

00 





crLfMsg 

. BYTE 

0320! 










0320: 

00 

00 

00 

OS 




diAdd 

. BYTE 

0334 l 










0324! 










0324! 

OF 







ucsdlnterp 

. BYTE 

0325! 

49 

42 

4D 

2£ 

55 

43 

53 


. ASCII 

0334! 










0334! 

OF 







fc ootParmFi1e 

, BYTE 

0335! 

49 

42 

4D 

or 

*£C- 

55 

43 

-W/-W 


. ASC11 


CONSTELLATION II BOOT FOR THE IBM/PC *** 


"Invalid password" 

0 

"Users boot volume not -found" 

0 

“Users operating system is not supported" 

0 

cr $ If,If 

"Press any key to continue " 
b e 11 j 0 

"Users home disk server is not online " 

0 

'UCSD p-system interpreter file not found" 

0 

“UC SD p-system driver file not found" 

0 

"MS-BOS bios file not found" 

0 

"MS-DOS dos file not found" 

0 

“Unit 5 is not mounted" 

0 

"UCSD volume on unit 5 can not be booted " 
"(flipped directory)" 

0 

“Place MSDOS floppy in drive A:“ 

0 

“Boot parameter file not found" 

0 

"Error in reading disk block" 

0 

ODH, OAHf O 

0 » Oi 0, 8 i block address of drive info ta 


i 5. 

"IBM. UCSD. INTERP" 

15. 

“IBM. UCSD. BTPARM" 




f 


I 


t 

Page 

4 CIIBOOT 

F i 1 e: 

C0NSTBCQT1.TEXT 

*** CONSTELLATION II BOOT FOR THE IBM/PC *** 

f 

0344 1 





I 

03441 

OF 


drvrF 11 e Name 

. BYTE 15. 


0345 1 

49 42 4D 2E 55 

43 53 


. ASC 1 1 ■- I BM. UCSD. DR IVER " 

f 

0354 1 






03541 

OE 


msDosBiosName 

. BYTE 14. 


03551 

49 42 4D 2E 4D 

53 44 


.ASCII 13M. liSDOS. BIOS" 

i 

0363 1 





m. 

0363 1 

OD 


msDosName 

.BYTE 13. 


0364 1 

49 42 4D 2E 4D 

53 4 4 


. ASC II -IBM. M3DQ3. DOS " 

g 

0371 1 






0371 1 

43 4F 52 56 55 

53 20 

memMar k 

.ASCII : ‘CORVUS CONST II" 


03801 

OOOF 


msfflMar kLsrt 

. EQU 15. 

| 

0380 1 






03801 

43 4F 52 54 41 

62 

dosMark 

.ASCII “CORTAb” 


0386 1 

0006 


dosMarkLen 

. E 8 U 6 


03861 






0386! 

43 6 F 72 76 75 

73 jjq 

badMntMsg 

.ASCII "Ccvvus disk driver not -Pound in interpreter" 


03B1 1 

00 



.BYTE 0 

ff 

03B2 1 





'1, 

03B21 

43 6 F 72 76 75 

73 20 

badBiosMsg 

.ASCII "Corvus disk driver not -Pound in bios" 


03D61 

00 



.BYTE 0 


03D71 





m - 

03D71 

0600 


r omlo 

.WORD 6 :ROM io address 


03D9 1 

OODF 



.WORD ODFOOH ;ROM seg address 

f 

03DB 1 





m/ 

03DB 1 

0900 


iRstAdd 

. WORD 9 ,- address of dummy Ire turn 


03DD 1 

OODF 



.WORD ODFOOH 


03DF1 



i 


"*7 

03DF! 



; CONSTANTS FOR 

encrypt/decrypt routines 


03DF 1 



4 



03DF1 

0900 


mas kMod 

. WORD 9 

4; 

03E1 1 






03E1 1 

1 FGO 9200 8700 

1 AOO 

nameBase 

. WORD 31, 146, 135, 26, 99, 0, 7, 78, 125, 98 

f 

03E9 1 

6300 0000 0700 

4E00 



I, 

03F1 1 

7D00 6200 





03F51 






t 

< 

« 

< 

€ 

€ 


03F5 1 
03FD 1 
04051 
0409 { 
0409 1 
0411 1 
04191 
04191 
0421 1 
04291 
0429 1 
04291 
0429 i 
04291 
04291 
0429! 
0429! 
04291 


0200 

0100 

0100 

1900 
2 BOO 

0200 

0200 


0100 
0100 
0100 

2400 

1200 

0100 

0100 


0100 

0200 


7A0Q 

6000 

FFFF 

FFFF 


0100 

0100 


9600 

7000 

0100 

0100 


nameIncr 


. WORD 


2/ 1, 11 L 1 / 1,2, 1 < 11 1 


pswBase 


. WORD 25; 36, 122, ISO, 43, 18, 96, 112 


pswlncr 


. WORD 2, 1,-1, 1,2, 1,-1, 1 


S 

i RECORD LAYOUTS 

I 


i 


€ 


0429 1 


in ROM 


€ 

f 

€ 

f 

€ 

f 

4 

f 

I 

I 

f 

€ 

I 

i 

€ 

€ 

€ 

€ 

< 

f 


; DRIVE INFORMATIGW TABLE 
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0429 < 


0429 ! 

i -S' & & # & # & -fr # # & # # * *s 


0429 l 


ASECT 




0000 * 


ORG 

0 



oooo; 

diTab I e 





0000 






oooo: 

diDrive 

BLOCK 

nameLen 

/ 

drive name Cunencrypted> 

OOOA i 

diDrivePass 

BLOCK 

passLen 

/ 

drive password (encrypted) 

00 i 2 i 






00121 

diServer 

BLOCK 

nameLen 

i 

disk server name (unencrypted) 

001C ! 

diServPass 

BLOCK 

p a s s L e n 

t 

" " password (encrypted) 

0024 1 






0024 t 

diCrvAdd 

BLOCK 

a d d L e n 

i 

abs addr of corvus volume 

0028! 

diCrvSize 

BLOCK 

a d d L e n 

f 

size of corvus volume in blocks 

002C 1 






002C 1 

di BootAdd 

BLOCK 

sddLen 

i 

abs addr of cold boot table 

0030 ! 

diNaAdd 

BLOCK 

ad dLen 

i 

" " " network active talble 

0034 1 






0034 l 

diDrvInit 

3 Y1 E 


! 

drive init flag 

0035 < 

d iRes1 

BYTE 


3 

reserved. 

0036 ! 

diDrvNo 

WORD 


i 

drive number 

0038 1 

diOn line 

BYTE 


t 

drive online indicator 

0039! 

diRes2 

BYTE 


i 

reserved. 

003A f 






003A ! 

diNuElks 

WORD 


s 

Network User table size (blocks) 

003C ! 

diDvBlks 

WORD 


i 

Drive Volume " " " 

003E! 

diDuBlks 

WORD 


t 

Drive Name " " “ 

0040! 

diDaBIks 

WORD 


i 

Drive Access 

0042! 

diSb Biles 

WORD 


j 

Sys Boot 

0044! 






0044! 

diSpecial 

WORD 


i 

version code 

0046! 






0046! 

diNuAddr 

BLOCK 

ad dLen 

i 

Network User table addr (blocks) 

004A ! 

diDvAddr 

SLOCK 

ad dLen 

$ 

Drive Volume 

004E : 

diDuAddr 

BLOCK 

ad dLen 

t 

Drive Name 

0052! 

diDaAd dr 

BLOCK 

ad dLen 

3 

Drive Access " 1 

0056! 

diSbAddr 

BLOCK 

ad dLen 

3 

System Boot 

00 5A! 






005A! 

diversion 

BYTE 


3 

Drive info table version 

005B l 

d iEnd 





GG5B : 






005E! 005B 

diRecSize 

EGU 

d iEnd 



005B! 0001 

diRPB 

EGU 

1 

3 

1 record per block 

005B ! 


PSECT 




0429 l 






0429! 






0429 ! 


0429! 






0429 ! 

i NETWORK ACTIVE 

TABLE 




0429 S 

1 





0428! 


-XX ################################################# 

0429 ! 


ASECT 




005B ! 


ORG 

0 



OOOO ! 

naTab le 





OOOO! 

naHost 

BLOCK 

nameLen 

i 

host name 
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CONSTELLATION 

11 BOOT FOR THE IBM/PC ■*** 

OOOA! 

naHostNo 

. BYTE 


;host number 

OGGB ! 

naHostKind 

. BYTE 


ihost kind 

OGGC 1 

naRes 

.BLOCK 

A 

i reserver 

0010! 

naEnd 




0010! 





0010! 0010 

naRecSi z a 

. ECU 

naEnd 


0010! 0020 

naRPB 

. EGU 

Oc 

;records per block 

0010! 


.PSECT 



0429! 





0429 t 



0429! 





0429! 

; DR IVE VOLUME 

TABLE 



0429 ! 

| 




0429! 


0429! 


.ASECT 



0010! 


. ORG 

0 


0000! 

d vTa b1e 




0000! 

dvVolName 

.BLOCK 

na^eLsn 

;volume name (encrypted) 

OOOA! 

dvStartB1k 

.BLOCK 

addLen 

i first block of volume <abs) 

OOOE! 

dvEndBlk 

.BLOCK 

ad dLen 

;last block of volume (abs) 

0012! 

dvVoIType 

. BYTE 


ivolume type 

0013! 

dvWriteab1e 

. BYTE 


;=1 if volume is R/W 

0014 i 

dvGlbAccess 

. BYTE 


;=1 if volume is visable 

0015! 

dvVolOff 

. BY! E 


ibegining offset of volume 

001 6! 

d vRSal 

. SLOCK 

10 

;reserved 

0020! 

d vEnd 




00201 





0020! 0020 

dvRecSize 

. EGU 

d vEn d 


0020! 0010 

dvRPB 

. EGU 

16 

i16 records per block 

0020! 


.PSECT 



0429! 





0429! 





0429! 





0429! 

i & & & &&&&& # # # # # 


0429! 

} 




0429! 

t DRIVE ACCESS 

TABLE 



0429! 

s 




0429! 



0429! 


.ASECT 



0020! 


. ORG 

0 


0000! 

daTable 




0000! 

daUssrid 

. WORD 


i user identifier 

0002! 

daVo 1Ad dr 

.SLOCK 

ad dLen 

;start block of volume 

0006! 

daMntInfo 

. BY IE 


;OS dependent mount unit 

0007! 

daReadBoot 

. BYTE 


; read only and boot flag 

0008! 





0008! 0010 

daROflag 

. EGU 

10H 

ibit for read only flag 

0008! 0001 

daBootflat 

. EGU 

01H 

j b i t for users boot volume 

0008 i 

daEnd 




0008 < 





0008! 0008 

daRecSize 

. EGU 

daEnd 


0008! 0040 

daRPB 

. EGU 

6'; 

;64 records per block 

0008! 


PSECT 



0429! 





0429! 
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0429! ; 

0429! ; NETWORK USER TABLE 

0429! 

0429 i #*4H*##*****###*##******«*#*******#*#*****#**#*##**#*aHHi-**##'******** 


0429! 



.ASECT 



0008! 



. ORC 

0 


oooo : 


nuTab1e 




OOOO! 


nuUser 

.BLOCK 

nameLen 

»user name (encrypted) 

000A! 


nuUserPass 

,BLOCK 

passLen 

; user password (encrypted) 

0012! 


nuServer 

.BLOCK 

nameLen 

;home disk server name (unenerypte 

001C } 


nuQpsys 

. WORD 


;operating system type 

00IE! 


nuHostType 

. BY IE 


/host station type 

001FJ 


nuRes 1 

. BY I E 


ireserver 

0020! 


nuEnd 




0020! 






0020! 

0020 

nuRecSiz e 

. EQU 

nuEnd 


0020! 

0010 

nuRPB 

. EQU 

16 

;16 records per block 

0020! 



.FSECT 



0429! 






0429! 



X V: a##* ####*##***###**###*###*#*#**#*#*##*## 

0429 I 


; 




0429! 


s DRIVE USER 

TABLE 



0429! 






0429! 



0429! 



.ASECT 



0020! 



. GSG 

0 


0000! 


duTabIs 




0000! 


rfuUser 

.BLOCK 

nameLen 

;user name (encrypted) 

OOOA! 


duPa 55 

,BLOCK 

passLen 

;user password (encrypted) 

0012! 


duUserId 

. WORD 


;user identifier 

0014! 


d uHounted 

. WORD 


;# of user volumes mounted 

0016! 


duAccess 

. WORD 


i# of vo1s in user access 

GDIS! 


duBootlnfo 

. WORD 


i currently unused 

001A! 


duRes1 

.BLOCK 

6 

}reserved 

0020! 


duEnd 




0020 f 






0020! 

0020 

duRecSize 

. EQU 

duEnd 


0020! 

0010 

duRPB 

. EQU 

16 

;16 entries per block 

0020! 



.FSECT 




0429 ! 
0429! 


0429! 
0429! 
0429! 
0429! 
0429! 


i ju*#*#**#*-**-**#** x tt**-*#****^*#*#^##*####**########-**#*#****#'* -a-***- 

UCSD PASCAL DISK DIRECTORY ENTRY 
; -a-•sr-s-** a'a^-H'^'#'^#*^##*####********###*###*##*#*###***#* 


0429! 


.ASECT 



0020 5 


. ORC 

0 


0000 ! 

ucsdDir 




OOOO! 





0000! 

ucsdIstBIk 

. WORD 


; first block in file 

0002! 

uc sdLastB1k 

. WORD 


; last block in file 

0004! 


.BLOCK 

2 

;of no interest to us 

0006! 

ucsdName 

.BLOCK 

16. 

; name of file (1st byte 

0016! 


.BLOCK 

4 

;of no interest 


is len ) 
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CONSTBOOT1. TEXT 


*** CONSTELLATION II BOOT FOR THE IBM/PC 




001A 1 
001 A! 

ooi a: ooia 

ooi a; 

001A! 0010 
001 A! 

001A i 

0429! 

0429! 

0429 i 
0429 i 
0429! 


0429! 
0429! 
0429! 
0429! 
0429! 
0429! 
0429! 
0429! 


ucsdEnd 
ucsdDirSize 

uc sdNumFi1es 


.EGO ucsdEnd 

.EGU ucsdDir+lOH 


only in entry zero 


0429! 


. ASECT 

001 A! 


. CRC 

0000 ! 

mntTbl 


0000 ! 

mntDr vNp 

. BYTE 

0001 1 



oooi ; 

mntDs kSrvr 

. BYTE 

0002! 

mntSloc k 

.BLOCK 

0006! 

mntNumBlk s 

. WORD 

0008! 



0008 ! 

mntTblEnd 


0008! 0008 

mntRecSize 

. EGU 

0008! 


.PSECT 


.PSECT 

; L'CSD MOUNT TABLE 

i 

- s ft*#####*##*##*#####*## it -a 


;drive = left 4 bits write prot 
i 4 bits 

idisk server network address 
;4 byte extended block address 
inum blocks in volume 


riqh 


ontTblEnd 


TABLES IN MSDOS BIOS THAT MUST BE FILLED IN MY THE BOOTING PROCESS 


DRIVE MOUNT TABLE 


0429 ! 

{ rWflag 

0 . 

1 

0429! 

; kindFlag 

0 . 

1 

0429 ! 

; unused 

0 . 

1 

0429! 

< physUnit 

0 . 

31 

0429! 

0429! 

0429! 

0429! 

f 

i 

i VOLUME TABLE — : 

indexed b 

0429! 

0429 ! 

} 

i loAddByte 

0 . 

255 

0429! 

; midAddByte 

0 . 

255 

0429! 

; hiAddByte 

0 . 

255 

0429 ! 

■, driveNum 

0 . 

255 

0429 ! 

i server 

0. 

255 

0429 ‘ 

0429 ! 

t 

; DISK CONFIGURATION TABLES 

0429 : 

0429! 

i 

i numEntries : 

0. 

255 

0429! 

0429! 

t , y * » 

; logicalUnit : 

0 . 

255 

0429! 

; parmPoint ; 

0 . 

FF'FF 

0429! 

0429! 

/ to allow mounting an i 


INDEXED BY DOS LOGICAL UNIT O. .max logical units 


l-readOn1y O-readWrite 
0=corvus l=floppy 

if floppy this is physical drive (1-2) 
if corvus this is index into volume table 
0=not mounted 


indexed by PhysUnit from DRIVE MOUNT TABLE 


1o byte of 20 bit volume address 
mid byte 

£ If U II If I* 

drive number (corvus drive number) 
disk server network address 


number of entries used in configuration table 

DOS logical unit 0. . max logical units 
pointer to disk parameter table 
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I 
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CONSTELLATION II BOOT FOR THE IBM/PC *** 


each a os logical unit. If it is a floppy the first should point to 
the single sided entry and the second should point to the double 
; sided entry ■*) 

;DISK PARAMETER TABLE 


0429 1 

i see tSiz e 


0. . 

FFFFH 

sector size in bytes 

0429 l 

; sectPerBlk 


0, . 


sectors per block 

0429 1 

; resvSect 


0. . 

FFFFH 

reserved sectors 

0429 * 

i nurctFa is 


0. , 

255 

number of FAT's 

0429 { 

i dirEntries 


0. . 

FFFFH 

number of directory entries 

0429 l 

i numSects 


0. . 

FFFFH 

number of sectors/disk 

O O 

«|s <4*^ 

ro oj 

;LOGICAL UUIT 

MAP! 

ING 

TABLE — 

INDEXED BY DOS LOGICAL UNIT 0. .max logical 

0429! 

0429! 

3 

( index 


: 0. . 

255 

index into disk configuration tables 

0429! 

0429! 

i 


_ 


_ 


0429! 
0429 ! 
0429! 
0429! 
0429! 
0429! 
0429! 


i RAM VARIABLES 

} #****#•***#*#*•*•**•* *•*#•■*•**••*•* a******#***##******^*####******#***#*##**# 


0429! 

00 

00 

00 

00 

o 

o 

00 


4S j" 

.SIOCK 

diRecSize 

# 

drive 

info table 

0484! 

00 

00 

00 

00 

00 

00 

00 

nuRec 

.SLOCK 

nuRacSiz e 

s 

network user 

tab le 

G4A4! 

00 

00 

oo 

00 

00 

00 

OG 

da RE c 

, BLOCK 

daRecSize 

I 

dr i ve 

access 

table 

04AC ? 

00 

o 

o 

00 

00 

00 

00 

00 

duRec 

.BLOCK 

duRecSize 

/ 

d r i ve 

user table 

04CC ! 

00 

00 

00 

00 

00 

00 

00 

d vR a c 

.BLOCK 

d vR e c S i z e 

i 

drive 

vo1ume 

tab le 

04EC ! 

00 

00 

00 

00 

00 

o 

o 

oo 

dvBtRec 

.BLOCK 

d vR e e S i z e 

t 

« 

H 

(i 


Q50C ! 
050C ! 
050C S 
05QC ! 
OSQC ! 
050C ! 
G50E! 
0510! 
0512! 
0514! 
0516! 
0518! 
053S! 
0539! 
053B 1 
053F! 
053F ! 
053F! 
053F! 
053F! 
0541 ! 
0543! 
0545! 
0547! 


THE FOLLOWING ARE USED BV THE UCSD BOOT PROCESS 


*&*>$* 

&&&& 

&&&# 

0000 

0000 

0000 

00 00 00 00 00 00 oo 
00 

0000 

0000 5000 


mntDvPoint 
mntDaPoint 
mntDrvPoir.t 
mntCount 
mntTabAd d 
mntTabSeg 
holdSdvRec 
hoIdSdrive 
interpAdd 
drvrIn itAdd 


WORD 

WORD 

WORD 

WORD 

WORD 

WORD 


WORD 

WORD 


nntDviab 
mntDaTab 
mntDrvTab 
0 
O 
0 

BLOCK dvRecSize 
BY IE 0 
0 

Ot drvrAdd/lOH 


/pointer to nest entry in mount tab 1ei 


/count of entries in mnt tables 


/unit 9 drive volume rec 
/unit 9 drive 

< for long call to driver initalize 


rne following are used by the msdos boot process 


0000 

0000 

0000 

0000 

0000 


dosSeg 
biosLen 
configAdd 
sConf igAdd 
f par-mAd d 


. WORD 
. WORD 
. WORD 
. WORD 
. WORD 


0 

0 

0 

0 

o 


;segment address of MS/DOS b 1 0 S 
/ length in bytes of loaded MS/DOS I 
/address of DOS bios confi guv ati on 
/address of DOS bios configuration 


10 
fca 
table 


€ 

i 

f 

< 

f 

€ 

« 

f 

« 

I 

f 

€ 


< 

€ 

€ 

€ 

€ 


/address of DOS bios floppy disk paramters 


€ 

f 


cr ifi 
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File: C0NSTBG0T1. TEXT 




0549 ! 

0000 





cFarmAd d 

. WORD 

0 

/address of DOS bios Corvus [i " 

054B ! 

0000 





cParmCad d 

. WORD 

0 

/address of # entries used in above tab 1 

054D 1 

0000 





VO 1Add 

. WORD 

0 

/address of DOS bios volume table 

034F5 

0000 





mapAd d 

. WORD 

Q 

/address of DOS bios logical unit map ta 

0551 5 

0000 





Iog Unit 

. WORD 

0 

/logical unit number 

0553 J 

0000 





mountCount 

. WORD 

0 

/work for DOS mounting 

0555,' 

0000 





flopCount 

. WORD 

0 

/number of floppys mounted 

0557 { 

0000 





mapCount 

. WORD 

0 

/ index into config table 

0559 : 

0000 





ma x FI o p 

. WORD 

0 

/actual number of floppies in system 

055B { 

00 





amounted 

. BY IE 

0 

ztrue if unit a is mounted 

055C { 










055C ! 










055C ! 

0000 





temp 

. WORD 

0 

/temp word may be used by any subroutine 

055E! 

0000 





numBlocks 

. WORD 

0 

ztemp for misc routines 

0560! 

0000 





ho1dNumBlocks 

. WORD 

0 


0562! 

0000 





ft o 1 dNuroRead 

. WORD 

0 

/used by read UCSD file routine 

0564! 










0564! 

0000 





getStrLen 

. WORD 

0 

; used by getStr routine 

0566 ! 

00 





getStrEcho 

. BYTE 

0 

, a a a it 

i 

0567 ! 










0567! 

00 00 

00 

00 

00 

00 00 

us erNafns 

.BLOCK 

nameLen 


0571 ! 

00 00 

OO 

00 

00 

00 00 

userPassword 

.BLOCK 

p a s sLs n 


0579 ! 

00 





userHost 

. BYTE 

0 


057A! 










057A ! 

00 00 

00 

00 

00 

00 00 

cryptMarne 

.BLOCK 

nanteLen 

; encrypted name 

0584 ! 

00 00 

00 

00 

00 

00 00 

c r y p tPas suio r d 

,BLOCK 

passLen 

/ encrypted password 

058C ! 










058C ! 

OO 00 

00 

00 

00 

00 00 

tempDMame 

.SLOCK 

nameLen 

z temps 

0596! 

00 00 

00 

00 

00 

00 00 

tempEName 

.BLOCK 

nameLen 


OSAO! 










05AO ! 

00 





drvsOnline 

. BYTE 

0 

/number of drives on system 

05A1 ! 










05A1 ! 

00 





cardType 

. BYTE 

0 


05A2 ! 

00 





d o t s 

. BY IE 

o 


05A3 ! 










05A3! 

00 





serverHost 

. BY IE 

0 

/ server host number 

05A4 ! 

00 





s aveHost 

. BY!E 

0 


05A5 ! 

00 00 

00 

00 

00 

00 00 

serverNama 

.BLOCK 

nameLen 


05AF ! 

00 





d r i ve 

. BY IE 

0 

/current drive number 

05B0 ! 

00 00 

00 

00 



block 

.BLOCK 

addLen 

/current block to read 

05B4 ! 

00 OG 

OO 

00 



holdBlock 

,BLOCK 

addLen 


05B8 J 

00 





1oRetCode 

. BY! E 

o 

/ return code from read 

05E9 ! 

00 





d i r I s F1 i p p e d 

. BYTE 

0 


05BA ! 

00 





er rOk 

. BY IE 

0 

z O 0 if read errors are ok 

05BB ! 

00 00 

00 

00 



drvCmd 

, BLOCK 

4 

/ 4 byte disk command 

05BF ! 










05BF ! 

0000 





re tLsn 

. WORD 


z used by block read routines 

05C 1 ! 










05c i : 






i 




0501 f 






; THE FOLLOW IMO 

ARE CONSTELLATION II 

SERVER COMMANDS 

05C 1 1 










05C 1 ! 










050 1 ' 

01 FE 

03 

00 

00 


inhere Are You 

. BYTE 

1, OFEHj 3/ 0, 0 

/where are you constellation packet 

05C6 ; 

00 





ujaySource 

BY ! E 

0 

/host number of sender 

05C 7! 

00 FF 






. BYTE 

0, CFFH 

/anybody respond 





i 


i 

€ 

€ 

f 

€ 

f 

C 

I 

t' 

i 

( 

t 

f 

i 

c 

t 

« 

i 

t 
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05C9; 

00 

Ci f *) 


QO 

00 

00 00 

terayName 

. BLOCK 

nameLen 

/server hse are looking for 

05D3! 











OSDS 

00 

00 

00 

00 

00 


my I d X s 

. BLOCK 

c.\ 

iwe only care about host number 

OSDS! 

00 






mi iSourcfi 

, BYTE 


/host number of responder 

Q5D9; 

00 

00 






. BLOCK 

P 


05DB ! 

00 

00 

00 

00 

00 

00 00 


BLOCK 

nameLen 


OSES! 











OSES! 

01 

FE 

00 

00 

00 


hello 

. BYTE 

1, OFEHi 0, 0, 0 

, hello on network message 

05EA: 

00 






helloSourca 

BYTE 

0 

/our host number 

05EB 1 

00 







. BYfE 

0 


05EC : 

00 






hslloTyps 

BYTE 

0 

} our station type 

OSED S 

00 

00 

00 

00 

00 

00 00 

h e11oName 

. BLOCK 

nameLen 


05F7J 











05F7! 

34 

03 





ad dActive 

. BYTE 

3 "‘1H i 3 

/add active disk cmd 

05F9I 

00 

00 

00 

00 

00 

00 00 

ad dActName 

. BLOCK 

nameLen 

i our user name 

0603 

00 

00 

00 

00 

00 

00 


. BLOCK 

6 

;not used 


0609 f 
0609 ! 

0609 I 
0609! 

0609 i 

0609 < i *****-*#***«**«#*•»*#****•< #-***«*###***#*4H**»*#***#*#***#*##'*<SHfr*'*****#' 


0609 ! 




i 


o o 
o- cr 
o o 




i SAVE_RESS - 

~ saves all 8086 registers on the stack 

0609: 





0609! 




saveRegs 


06091 

SF 

06 

5C05 

POP 

temp ■, save return address 

060D ! 

SO 



PUSH 

AX 

060E ! 

S3 



PUSH 

BX 

060F! 

si 



PUSH 

CX 

06101 

52 



PUSH 

DX 

06111 

56 



PUSH 

SI 

06121 

57 



PUSH 

DI 

0613J 

FF 

36 

SC 05 

PUSH 

tenp i restore return address 

0617! 

C3 



RET 


0613! 

0618! 




; -JNHHHHHHHHI-S-X 

•fr#-#*##*-;*##* *#*##*#*##**###** 

0619! 
0618; 
0613! 




| 

; REST_REGS - 

- restores all 8086 registers from the stack 

0618! 




; ’a#*###########*#######-?? 


0613 i 




rsstRegs 



0618! 

QF 

06 

SC 05 

POP 

temp 

>save return address 

061C I 

SF 



POP 

DI 


061D I 

5E 



POP 

SI 


06IE! 

5A 



POP 

DX 


06 IF! 

59 



POP 

CX 


0620! 

SB 



POP 

BX 


0621 ! 

58 



POP 

AX 


0622! 

FF 

36 

5C05 

PUSH 

temp 

;restore return address 

0626! 

C3 



RET 



0627! 







0627 I 





0627! 








f 


c 

€ 

€ 

« 

€ 

4 

€ 
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f 

f 
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f 
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€ 

t 

€ 

< 

f 

i 

« 


f 





t 


I 


Page 


C11BOOT 


*** CONSTELLATION II BOOT FOR THE IBM/PC *** 


0627 i 
0627 I 
0627! 
0627 { 


0627! 

ES 

DFFF 

CALL 

saveReg s 

062A! 

B4 

06 

MOV 

AH/ 6 

0620 I 

BO 

00 

MOV 

AL./ 0 

062E! 

B9 

00 00 

MOV 

cx. 0 

0631 ! 

BA 

4F 18 

MOV 

DX,134FH 

0634 ! 

B7 

07 

MOV 

EH. def Attr 

0636! 
0638! 

CD 

10 

I NT 

10H 

0638! 

B4 

02 

MOV 

AH/ 2 

063A ! 

33 

D2 

XOR 

DX.- DX 

063C ! 

B7 

00 

MOV 

BH, 0 

063E! 

CD 

10 

I NT 

10H 

0640! 
0640! 

ES 

D5FF 

CALL 

re s tReg s 

0643! 

C3 


RET 



0644! 

0644 
0644 ‘ 

0644 1 
0644 5 
0644 ! 

0644 I 

0644! ES C2FF 
0647! B4 02 
0649! B7 00 
064B! CD 10 
064D 1 

064D! ES CSFF 
0650! C3 


HOME — clears the screen and positions cursor at 0/0 

home 


i specify scroll i/o call 
; clear window 
; upper left corner 

; lower right corner 24.79 (1SH.-4FH) 
/attribute byte of white on black 
; c a 11 i/o routines 

; specify set cursor position i/o call 
; set cursor to 0. 0 
i use screen page zero 
icall i/o routines 


;restore all registers 


; GOTQXY — positions cursor at (DH» DLJ 

g oto x y 

CALL saveRegs ; save all registers on stack 

MOV AH;2 /specify set cursor position i/o cal 

MOV BHi0 ;use screen page zero 

INT 1CH /call i/o routines 


CALL restRegi 
RET 


restore registers 


0651 ! 
0651 : 
0651 ! 
0651 ! 
0651 ! 
0651 ! 
0651 ! 
0651 ! 


, a *'**«**•»#** 4 *** **-*##*** *****#»*•» *##*4Ht4Ht*******4HHt****** 

/ 

s PRINT_STR -- prints the string pointed to by SI. String is 
; terminated by OH. Backspace/ car ret/ bell/ and 

/■ line feed are handled. If the MSB of a byte 

i is on/ the lower 7 bits are used as a horiz tab 

; value. 


0651 ! 
0651 ! 


j- 0651! 

1 0654! 

E8 BSFF 

CA/LL 

$10 

saveRegs 

0654 5 

AC 

LQDbS 


| 0655! 

30 00 

CMP 

AL, 0 

1 0657! 

74## 

JE 

$99 

0659! 

A8 80 

TEST 

AL/ 80H 

r 065B1 

1 065D! 

75## 

JNZ 

$30 

065D! 

B4 OE 

MOV 

AH. 14 

| 065F! 

B7 00 

MOV 

BH. 0 


i *•****#•***#■*»#********»*##-*#*-3 a******#*****#*#****#*#**#*##**#****** 

printStr 

CALL saveRegs ;save regs on stack 

$ 10 

LODSS /load one byte 

CMP AL/O /is it end of string? 

JE $99 ; yes exit 

TEST AL/SON i is it a tab? 

-JNZ $30 ; yes< process it 

MOV AH/ 14 ; specify write tty mode char 

MOV SHz 0 ;use screen page zero 


< 
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0661 < 

S3 07 


MOV 

EL; clef At tr 

/ use white on black attribute byte 

U663 ! 
0665 ! 

CD 10 


Tfctr 

1 i\ f 

10H 

; call i/o routines 

0665! 
0667! 

EBED 

rb 

•JMP 

$10 

;get next byte 

0667! 

50 


PUSH 

AX 

/ save tab count 

0668! 

B4 03 


MOV 

AH, 3 

/specify read cursor 

066A! 

B7 00 


MOV 

BN, 0 

/ use screen page zero 

066C ! 
Q66E ! 

CD 10 


I MI 

10H 

jcall i/o routines 

066E! 

58 


PGP 

AX 

/restore tab count 

066F! 

24 7F 


AMD 

AL,7FH 

; mask off msb 

0671 ! 

02 DO 


ADD 

DL> AL. 

; add tab value to current col 

0673! 

B4 02 


MOV 

AH, 2 

/specify set cursor position 

0675! 

CD 10 


I NT 

ION 

/call i/o routines 

0677! 
0679! 

EBDB 

$99 

JMP 

$10 

/get next char 

0678! 

E8 9CFF 


CALL. 

T s s t R €? § s 

/restore registers 

067C ! 
067D! 

C3 


RET 



067D! 


» # # Hf # # # # # # # # # *#• 


067D! 


2 




067D! 


; OETSTR ■— get 

string from keyboard 


067D! 



SI 

is address of string 


067D! 


i 

cx 

is length of string 


067D 1 


s 

EL 

is echo char or print •' 


067D! 
067D! 



str 

ing will be padded with 

b lanks 

067D! 



067D! 
067D! 

E8 89FF 

OETSTR 

CALL 

saveReg 5 

; save all registers 

0680! 

SB FE 


MOV 

DIfSI 

/ set up add for fill with blanks 

0682 ! 

89 OE 6405 


MOV 

getStrLen,CX 

/ put count in memory word 

0686! 

88 IE 6605 


MOV 

getStrEcho,BL 

; put echo in memory byte 

068A ! 

BO 20 


MOV 

AL, 20H 

i space 

0680 ! 

F3 AA 

REP 

STOSS 


/fill with blanks 

068E! 

SB FE 


MOV 

DI, SI 

/point at start of string 

0690! 

0682! 

33 09 

$10 

XOR 

CX, cx 

/ zero CX for count 

0692! 

B4 00 


MOV 

AH, 0 

/ specify read keyboard 

0694 ! 
0696! 

CD 16 


INI 

16H 

/call keyboard i/o routines 

0686 ' 

3C OD 


CMP 

AL, cr 

/is it carriage return 

0698! 

74-Sr* 


JE 

$99 

; yes all done 

069A ! 
069A ! 

3C 08 


CMP 

AL, b s 

/is it a backspace? 

0680 ! 

75S-# 


JME 

$15 

» no 

069E ! 

83 F9 00 


CMP 

CX, 0 

/ is count = zero 

06A1 ! 
06A3 ! 

74EF 


JE 

$10 

; yes, ignore backspace 

06A3! 

B4 OE 


MOV 

AH, 14 

/ specify tty write(backspace) 

06A5! 

B7 00 


MOV 

BH, 0 

/ use screen page zero 

06A7 ! 
06A9 < 

CD 10 


I NT 

10H 

/call i/o routines 

06A9 ! 

51 


PUSH 

CX 
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Q6AA I 

B4 OA 

MOV 

AH* 10 

/specify u/rite char at curr p 

G6AC l 

BO 20 

MOV 

AL, 20H 

/write a blank 

G6AEI 

B9 01 00 

MOV 

CX, 1 

/ write one char 

06B1 1 

CD 10 

I NT 

10H 

/call i/o routines 

06E3! 

59 

POP 

cx 


06B4 i 





06B4 : 

4F 

DEC 

DI 

; set address pointers back 

G6B5.' 

49 

DEC 

CX 

zdec counter 

06B6 * 

BO 20 

MOV 

AL, 20H 

/move blank to backspaced are 

G6B8 ! 

88 45 00 

MOV 

CDI+O),AL 


Q6EB i 

EBD5 

JMP 

$10 

zget another byte 

Q6BDI 


$15 



06BD < 

3B OE 6405 

CMP 

CX* getStrLen 

/is string full 

06C1 i 

74CF 

JE 

$10 

z yes wait for bs or cr 

Q6C3! 





G6C3! 

3C 20 

CMP 

AL. 20H 

/ is char < space? 

06C5I 

72CB 

JB 

$10 

/ yes get another 

G6C71 





06C7 ! 

3C 7E 

CMP 

AL. 7EH 

z is char above 7E? 

06C9 5 

77C7 

JA 

$10 

; yes. get another 

06CB ' 





06CB { 

3C 61 

CMP 

AL, 61H 

/is it less than 'a '? 

06CD ‘ 

72** 

•JB 

$17 

/ yes 

06CF ! 





06CFJ 

3C 7A 

CMP 

AL, 7AH 

z is it greater than 'j '? 

06D1 5 

77** 

JA 

$17 


06D3 f 





06D3 { 

2C 20 

SUB 

AL, 20H 

/make it upper case 

Q6D5 ‘ 


$17 



06D5I 

AA 

STOSB 


/save char 

06D6I 

41 

INC 

CX 

/add one to count 

06D7 

80 3E 6605 00 

CMPBIM 

getStrEcho.echo 

/are we susposed to echo 

06 DC 5 

74** 

JE 

$20 

/ yes 

06DE 1 

BO 2E 

MOV 

AL, 2EH 

/print a dot instead 

06E0! 


$20 



06E01 

B4 OE 

MOV 

AH. 14 

/specify write one char 

06E21 

B7 00 

MOV 

BH, 0 

/use screen page zero 

06E4 ! 

CD 10 

INT 

I OH 

/call i/o routines 

06E6 ! 

E BAA 

JMP 

$10 

z get another character 

06ES! 


$99 



06E8! 

E8 2DFF 

CALL 

restRegs 

/restore registers 

06EB * 

C3 

RET 



06EC ! 





06EC ! 





06EC ! 


i ******************* x *********************************************** 

06EC ! 


S 



06EC : 


; PRINT__AND_WA I T — clears the screen , print the message in SI 

06EC l 


f 

and u/aits for a 

keypress 

06EC ! 


i 



06EC 1 




06EC 


pr intAndWait 



06EC 1 

E8 38FF 

CALL 

h orr.e 


06EF1 

E8 5FFF 

CALL 

printStr 


06F21 

E8 **** 

CALL 

wa i tForKey 


06F5I 

C3 

RET 
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Fi I 


G6F6 ■ 
G6F6! 
06F6! 
Q6F6 ! 
Q6F61 
06F6 ! 
G6F6! 


■, < **-x ************ **»***#*****4H»'**»##*#*****'*** 

; PUTLQGO — clears screen and displays const II logo 
! 

PUTLQGO 


06F6 < 

E8 

2EFF 

CALL 

h one 

06F9 l 

BE 

7 COO 

LEA 

SI,c ons tHsg 

06FC ! 

E8 

52FF 

CALL 

printStr 

06FF ! 

C3 


RET 


0700! 





07001 




0700 S 



1 


0700! 



; GETUSERID — 

prompt the user for his user id 

0700! 



f 


0700! 




0700 < 



GETUSERID 


0700 { 

BA 

00 OE 

MOV 

DX< xyGetUser 

0703 ! 

ES 

3EFF 

CALL 

GOTOXV 

0706 ! 

BE 

EOQO 

LEA 

SI,nameMsg ;"Please enter your name..." 

0709 1 

ES 

45FF 

CALL 

printStr ;print it on screen 

070C ! 





070C ! 

BE 

6705 

LEA 

SI# us enframe ;for get string 

070F * 

B9 

OA 00 

MOV 

CX, nameLer ;length of name field 

0712! 

B3 

00 

noo 

3L,echo ;echo chars when we get them 

0714! 

ES 

66FF 

C ALL 

g e tStr 

0717! 

C3 


RET 


0718! 




##■•*## a-#<arx >#*###########* tt###*#*####*#*#*####*#*#**#’*'* 

0718! 



i 


0718! 



; GETPASSWORD 

-~ prompt the user for his password 

0718! 



; 


0718! 




0718! 



GETPASSWORD 


0718! 

E8 

EEFE 

CALL 

saveReg s 

071B ! 

BA 

00 10 

MOV 

DX, xyGeiPass ;gotoxy(0, 14) 

071E! 

ES 

23FF 

CALL 

GOTOXV 

0721 ! 

BE 

F900 

LEA 

SI, passMsg > "Please enter your password 

0724 ! 

ES 

2AFF 

CALL 

printStr 

0727 1 





0727 l 

BE 

7105 

LEA 

Sli userPassuord ; for get string 

072A! 

B8 

OS 00 

MOV 

CX,passLen ; length of password 

072D! 

B3 

01 

MOV 

BL,noEcho ;only print dots 

072F! 

ES 

4SFF 

CALL 

g e tStr 

0732 5 

ES 

E3FE 

CALL 

restRegs 

0735 ! 

C3 


RE \ 


0736! 




0736! 



l 


0736 1 



; ENCR YP T_NAME 

“ encrypts userName into cryptName 

0736! 



t 


0736! 



} ft###**###**###*# 

0736! 



ancry p tName 


0736! 





0736 ! 

ES 

DOPE 

CALL 

saveRegs ;save registers onto stack 

0739! 

33 

m 

XOR 

BX,BX ; b x = index into userName 





i 


Page - 16 C11BOOT File: 


*** CONSTELLATION II BOOT FOR THE IBM/PC *** 


f 


073B i 

•IQ 

FF 


XQR 

DI, DI 

;bx+di = index into crypt tables 

073D i 

•-v—t 

F6 


XOR 

SI. SI 

;si = mask value 

073F t 




$10 



073F! 

8A 

8F 

6705 

NOV 

CL. userMane(BX) 


0743! 

32 

ED 


XOR 

CH. CH 


0745 ! 
074S f 

83 

E9 

20 

SUE 

CX. 32 


0748 ! 

8B 

Cl 


MOV 

AX, CX 

; move to ax for multiply 

074A 1 

F7 

AD 

F503 

I MOL 

name Incr <DI) 


074E ! 
0750 ! 

SB 

C8 


MOV 

CX. AX 

ibac k to CX 

0750! 

03 

SD 

El 03 

ADD 

CX, nameBase <DI) 


0754 ; 

03 

CE 


ADD 

CX, SI 

;add mask value 

0756! 
0756 
075A! 

88 

8F 

7A05 

MOV 

cryp tMame(BX ) ,CL 

;save in erypted form 

075As 

83 

FS 

00 

Ch'P 

8 X, O 

; is it 1st char? 

075D! 

75** 


JMfc 

$15 


075F i 
075F« 

8A 

8F 

6705 

MOV* 

CL. userNam.e (BX ) 

:make new mas kVa I 

0763: 
0765 ! 

O'cL 

ED 


XOR 

CH, CH 


0765! 

83 

E9 

20 

SUB 

CX, 32 


0763! 

88 

0 1 


MOV 

AX, CX 

to AX for divide 

076A i 

99 



CWD 


ientend sign to DX 

076B ; 

F7 

3E 

DF03 

ID IV 

mas kMod 


076F' 
0771 ! 

SB 

F2 


MOV 

SI . D X 

i move remainder into mas kVa 1ue 

0771 i 




$15 



0771 ! 

43 



INC 

BX 

.point to next char 

0772 ‘ 

47 



INC 

DI 


0773 S 

47 



INC 

DI 


0774 l 

83 

F8 

0 A 

CMP 

BX. rtameLen 

i are we finished? 

0777 < 

75C6 


•JNE 

$10 

;no do next char 

0779 i 







0779 { 

E8 

9CFE 

CALL 

restRegs 

;restore registers from stack 

077C 5 

C3 



RET 



077D! 






077D! 
077D! 
077D! 




; DECRVPT_NAME 

-- decrypts tempEName 

into tempDName 

077D! 





077D! 
077D! 




deCryptName 



077D! 

E8 

89FE 

CALL 

saveRegs 

;save registers onto stack 

0780! 

33 

DE 


XOR 

BX, BX 

;bx = index into userName 

0782 f 

33 

FF 


XOR 

DI, DI 

ibx+di = index into crypt tables 

0784! 

33 

F6 


XOR 

SI, SI 

i si = mask value 

0786! 




$10 



0786! 

8A 

SF 

9605 

MOV 

CL, tempEName (BX ) 


078A t 
078C ! 

32 

ED 


XOR 

CH, CH 


078C ! 

2B 

CE 


SUB 

CX, SI 

;minus mask value 

078E! 
0792 * 

2B 

8D 

£103 

SUB 

CX, name Base < DI ) 



c 

4 

i 

4 

4 

€ 

4 

4 

i 

« 

4 

I 

4 

C 

4 

4 

< 

< 

€ 


i 
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0792 ! 

SB 

C 1 


MOV 

AX, CX ; to AX for DIV 

0794 1 

99 



CUD 


0795 J 

F7 

BD 

F503 

ID IV 

na^slncr(DI> 

0799! 

SB 

CS 


MOV 

CX, AX ;quotient back to CX 

079B i 






0790 ! 

S3 

Cl 

20 

ADD 

C X, 32 

079E i 






079E! 

as 

SF 

SC05 

MOV 

tempDName CSX); CL ; save in crypted form 

G7A2 J 






G7A2! 

S3 

FB 

00 

CMP 

BX;0 ; is it 1st char? 

07A5! 

75** 


JNF 

$15 

07A7! 






07A7 1 

83 

E9 

20 

SUB 

C X; 32 

07AA l 

SB 

Cl 


MOV 

AX. CX ;to AX for divide 

07AC J 

99 



CUD 

/entend sign to DX 

07AD! 

F7 

3E 

DF03 

IDIV 

mas kMod 

07B1 ' 

SB 

F'2 


MOV 

SI,DX ;move remainder into maskValue 

0783! 






0703! 




$15 


0703 f 

43 



INC 

BX ;point to next char 

0704 ! 

47 



INC 

DI 

Q7B51 

4 7 



INC 

DI 

07B6I 

Q'*} 

w w 

FB 

OA 

CMP 

BX? nameLen ; are we finished? 

0709 1 

75CB 


it *er 

$10 ino do next char 

07BB i 






070B ! 

ES 

5AFE 

A * i 

UHLL, 

restRegs /restore registers from stack 

07BE 1 

C3 



RE 1 


07BF! 






07BF! 






07BF! 




; &&&&&&&&&&&&&& 

07BF i 




} 


G7BF! 




; ENCRVPT_PASS 

WORD encrypts userPassuord into cryp tPassu/ord 

07SF i 




i 


07BF S 




: ###### 3 ^•^•J|-X*^*-'>^****}«'*4f***?l'************************** 

07BF! 




encry ptPasswor 


07BF < 






07BF! 

ES 

47FE 

CALL 

saveRegs /save registers onto stack 

07C2! 

33 

DB 


XQR 

BX. BX / b x = index into userPassuord 

07C4S 

33 

FF 


XOR 

DI, DI ;di = index into crypt tables 

Q7C6 S 

33 

F6 


XOR 

SI,SI /si = mask value 

07C8 { 




$10 


0708! 

SA 

SF 

7105 

MOV 

CL, userPassword (BX) 

07CC I 

32 

ED 


XOR 

CH, CH 

07CE ! 

83 

E9 

20 

SUB 

CX, 32 

0701 l 






0701 

SB 

Cl 


MOV 

AX, CX i move to ax for multiply 

0703 ! 

F7 

AD 

1904 

IMUL 

psulncr (DI ) 

07D7J 

SB 

CS 


MOV 

CX, AX /back to CX 

0709! 






0709 ! 

03 

8D 

0904 

ADD 

CX, pswBase (DI ) 

0700 l 

03 

CE 


ADD 

C X , SI /add mask value 

07DF * 






07DF ! 

se 

SF 

8405 

MOV 

cryptPassword(BX),CL ;save in crypted form 

07E3 ! 






07E3! 

S3 

FB 

00 

CMP 

BX, 0 /is it 1st char ? 


/is it 1st char? 



*•** CONSTELLATION II BOOT FOR THE XEM/PC 




t 

f 

€ 

€ 

« 

€ 

f 

C 

t: 

« 

« s 

f 

I 

I 

r 

i 

■I 

t 

f 

t 
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07E6 i 

75** 

ONE 

$ 15 


07E8! 
07E8; 

8A 

8F 7105 

MOV 

CL,userPassword<BX) 

; raaks new maskVal 

07EC ! 
07EE! 

32 

ED 

XOR 

CH, CH 


Q7EE I 

83 

E9 20 

SUB 

CX/ 32 


07F1 ; 

SB 

Cl 

MOV 

AX, CX 

; to AX for divide 

07F3 i 

98 


CUD 


> entend sign to DX 

07P 4 ! 

F7 

3£ DF03 

ID.IV 

mas k Med 


07F8! 

SB 

F2 

MOV 

SI, DX 

; move remainder into maskValue 

07FA! 
07FA! 



$15 



07F A ‘ 

43 


INC 

BX 

;point to next char 

07FB ! 

47 


INC 

DI 


07FC ! 

47 


INC 

DI 


07FD! 

83 

FB 08 

CMP 

BX, passLen 

; are uie finished? 

08001 

75C6 

■JNE 

$.10 

;no do next char 

0802! 
08025 

ES 

13FE 

CALL 

rsstRegs 

i restore registers from stack 

0805! 

€3 


RET 



0806! 




0806! 

0806! 

0806! 



; FLIP flip 

msb and 1*5 of word 

pointed to by BX 

0806! 



j ##*#####*###•#• 

^##***###***##*##******#****************************** 

0806 i 



FLIP 



0806 i 

SB 

07 

MOV 

AX, (BX) 


0808; 

86 

C4 

XCHQ 

AL i AH 


080A! 

89 

07 

MOV 

C B X>,AX 


0800 ! 

C3 


REF 




good; 

G80D! 
080D1 
080D! 
C80D! 
080D > 
080D; 
OSOD! 
0810! 
08X0 
0813 
0816 
0816 
08X9 
0810 
0810 
08 IF 

\J OCft 
0822 1 
0825! 
0828! 
0828 
082B! 
0S2E 
082E! 


ES F9FD 

8D 50 36 
E8 FOFF 

80 50 3A 
E8 EAFF 

8D 50 30 
E8 E4FF 

SO 50 3E 
ES DEFF 

80 50 40 
ES D8FF 

SO 50 42 


I #*#**»#***#*********#»«-**#******#*********#*****»****************** 

FLIP DRIVE INFO TABLE (address of table in SI) 

# 

} *$ *3fr'53*#*?T##•$*■£{’#•$ ^*>1**5$**5^"^■$!**^1"-Jl’“3?!”^5f**$t"*51'-M**51“*j!l**5$*"Sf" 

FLIP DI 


I 

€ 

« 

€ 

I 

I 

f 

C 

< 

I 

I 


C L 

savsRegs 


LEA 

CALL 

BX, (SI+diDrvNo) 
flip 

i 

LEA 

CAL L 

BX, (SI + dik'uBlks) 
flip 

€ 

LEA 

CALL 

BX, (SI+diDvBlks) 
flip 

< 

LEA 

CALL 

BX, (SI+diDuBl ks ) 
flip 

C 

LEA 

CALL 

BX, (SI+diQaBlks) 
flip 

c 

LEA 

BX, <SI+diSbElks) 

m 


f 
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0831 ! 

E8 

D2FF 

CALL 

•flip 

0834! 





0834 i 

SD 

5C 44 

LEA 

3X< (Sl+diSpecial) 

0837 ! 

ES 

CCFF 

CALL 

■flip 

OSSA! 





083A! 

ES 

DBFD 

CALL 

restRegs 

083D ! 

C3 


RET 


083E 





083E! 




083E ! 



i 


083E! 



i FLIP drive 

AcCTABLE (3d0rsss in b> X ) 

083E! 



} 


083E! 




083E I 



FLIP_DA 


083EI 

E8 

C8FD 

CALL 

saveRegs 

0841 { 

B9 

40 00 

MOV 

CX,daRPS ;records per block in CX 

0844 ! 



% i o 


0844 { 

8D 

5C 00 

LEA 

BX, CSI+daUserId) 

0847! 

E8 

BCFF 

CALL 

flip 

084A ! 





084A J 

83 

C6 08 

ADD 

SI. daRecSi ze 

084D i 

E2F5 

LOOP 

*10 

084F! 





0S4F t 

E8 

C6FD 

CALL 

restRegs 

0852 i 

C3 


RET 


0853 ! 





0853! 



l & &•&#-X *5f *5f # •Xr•#• # 'Sb •3f #-Jf-■&*X -if #*$• ■$•#•?£ ### 

0853 ! 



a 


0853! 



; FLIP NETWORK USER TABLE (address in SI) 

0853! 



# 


0853! 





0853 ! 



FLIP_NU 


0853! 

ES 

B3FD 

CALL 

saveRegs 

0856! 

S9 

10 00 

MOV 

CX, nuRPE 

0858! 



*10 


0859! 

8D 

SC 1C 

LEA 

BX,(Sl+nuOpSys> 

0S5C I 

E8 

A7FF 

CALL 

flip 

085F! 





0S5F! 

83 

C6 20 

ADD 

SI,nuRecSiz e 

0862 I 

E2F5 

LOOP 

*10 

0864! 





0864! 

E8 

B1FD 

CALL 

restRegs 

0867! 

OS¬ 


RET 


0868! 





0868 ! 




0868! 



l 


0868! 



; FLIP DRIVE 

USER TABLE (address in SI) 

0868! 



Z 


0868! 



; -a#######-***###*####*##**## **##*#**#####X#*###**#**#*##*###**##**' 

0868! 



FLIP_DU 


0868! 

ES 

9EFD 

CALL 

saveRegs 

086B « 

B9 

10 00 

MOV 

CX, duRPB irecords per block 

086E! 



*10 


0S6E! 

3D 

5C 12 

LEA 

BX,(Sl+duUserId) 

0871 ! 

ES 

92FF 

CALL 

flip 


i records per block 
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0874 ! 






0874! 

8D 

5C 14 


lea 

BX, (SI+duMounted) 

0877! 

E8 

8CFF 


t# iA I__!— 

flip 

G87AS 






087A ! 

8D 

5C 16 


LEA 

SXi(SI+duAecess> 

087D! 

E8 

86FF 


CALL 

flip 

0880! 






0880 ! 

8D 

5C 18 


LFA 

SXt (Sl+duSootlnfo) 

0883 I 

E8 

80FF 


CALL 

flip 

0888 ! 






0886! 

83 

C6 20 


ADD 

81/ duRecSize 

0889! 

E2E3 


LOOP 

*10 

08SB ! 






088B ! 

ES 

8AFD 


CALL 

restRegs 

088E! 

C3 



RET 


088F! 






088F! 





088F! 




i 


0S8F ! 




; FLIP UCSD ! 

DIRECTORY IN dirBuffer 

088F! 




; 


088F! 




} a#-##################*#*####*#####***-####### 

088F! 




FLIP_DIR 


088F 5 

E8 

77FD 


CALL 

saveRegs 

0892! 






0892! 

BB 

■a ** a 


LEA 

BX/dirBuffer+ucsdNumFi les <only in directory entry 

0895! 

E8 

6EFF 


CALL 

flip 

0898! 






0898! 

BE 

•Sf* 


LEA 

SI. dirBuffer 

089B ! 

es 

4E 00 


MOV 

CX. 78. . 78 entries in directory 

089E! 




*10 


OS9E! 

3D 

5C 00 


LEA 

BX, (Sl + ucsdIstBlk ) 

OSAl ! 

E8 

62FF 


CALL 

flip 

08A4! 






08A 4 * 

8D 

50 02 


LEA 

BX.(SI+ucsdLastBlk) 

OS A 7 ! 

ES 

5CFF 


CALL 

f 1 i p 

08AA! 






08AA! 

83 

C6 1A 


ADD 

SI.ucsdDirSize 

08AD! 

E2EF 


LOOP 

*10 

08AF! 






08AF i 

E8 

66FD 


CALL 

restRegs 

OSS2! 

C3 



RET 



0SB3! 


; #■-ft#"##*-# -a *•< •*-a-•*****#•»#•»-a- -a--s- -fr-sf"**#•»*■#•s-a-s-st* -a-a-i**-?!- -a-a-a-a- **#*## -a- *-*■*■* -a- 


08B3 l 
0SB3 J 
08B3,' 
0883 ! 
0883! 


; MAKEDRVCMD —- converts the vars drive and block to a 4 byte read block 
; command located in drvCmd 


; -aa-#-a•»•» *#■»-a-a-a--a a •»#•»#*#*#*#**#***********#**##*#■»•***##**##'»■##*#*# 


08B3 ? 



mafeeDrvCmd 


08B3 ! 

ES 

53FD 

CALL 

saveRegs 

08B6 ! 

C6 

06 BB05 32 

MOVE IM 

drvCmd,rdG 

OSBB ! 

AO 

BIOS 

MOV 

AL, b1oc k +1 

08BE! 

B1 

04 

MOV 

CL, 4 

08C0! 

D2 

EO 

SHL 

AL, LL 

08C2I 

OA 

06 AF05 

OR 

AL,drive 

08C6! 

A2 

BC05 

MOV 

drvCmd+1, A: 


i save regsiters on stack 
i drive read block command 
; get msb 4 bits of 20bit block address 
;shift 4 bits left 


put drive in Is 4 bits 
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CSC 91 

Ai 

B205 

MOV 

AX/bloci+2 


08CC ! 

86 

EO 

XCHG 

AH c AL 


OSCE ! 

A3 

BOO 5 

MOV 

drvCmd+2/ AX 

; put Is 16 bit block address in cmd 

0801 i 

ES 

44FD 

CALL 

rsstRegs 

; restore registers 

0804! 
0805! 

C3 


RET 



0805! 




0805 ! 



i 



0805! 



;■ CHKNUKDRIVfcS 

determines the number of drives online; places the 

0805 5 
0805 ! 



} 

} 

number in the var 

rsadbIoc k 

0805! 




0805! 



c hkNumDrives 



0805! 

C6 

06 BA05 01 

MOVE IM 

errOk, 1 

; read errors ok 

080A! 

BO 

00 

MOV 

AL, 0 

; set block address to zero 

08DC ! 

B8 

04 00 

MOV 

CX, add 1 en 


08DF! 

BF 

BOOS 

LEA 

01 , block 


08E2 ! 

F3 

A A 

REP 3T0SB 



08E4 ! 

C6 

06 AF05 01 

MOVEIM 

drive, 1 

; start at drive one 

08E9 S 



*10 



08E9! 

E8 


CALL 

readBlac b 

/read a black 

08EC * 

80 

3E B805 00 

CMPBIM 

i oRe tCo d e, 0 

i wa s return code = zero 

08F1 ! 


JNE 

$20 

i no, end of drives 

08F3! 

FE 

06 AF05 

INC MS 

dr iva 

; try next drive 

08F7! 

EBFO 

-JMP 

$10 


08F9! 



$20 



OSF9 ! 

AO 

AF05 

MOV 

AL,drive 


08FC ! 

FE 

08 

DEC 

AL 


08FE ! 

A2 

A005 

MOV 

drvsQnLir.e, AL 


0901 ! 

€6 

06 BAGS 00 

MOVBIM 

errOfc, 0 

i errors not ok 

0906! 
0907! 
0907 ! 

C3 


RET 



0907 ! 




0907! 



i 



0907! 

0907! 



; WAITFORKEY — 

prints ‘'press any key 

to continue' and waits for key press 

0907! 




0907! 



waitForKey 



0907 

ES 

FFFC 

CALL 

saveReg s 

;save register on stack 

090 A ! 

BE 

0101 

LEA 

SI / waitMsg 


0900! 

0910! 

E8 

41FD 

CALL 

printStr 


0910! 

B4 

00 

MOV 

AH, 0 

/specify read keyboard 

0912! 

0914! 

CD 

16 

I NT 

16H 

;call keyboard i/a routines 

0914! 

ES 

01FD 

C ALL 

restRegs 

; restore registers 

0917! 

C3 


RET 



0918! 




0918! 

0918! 

0918! 



i ADD_TO_BLOCK 

/ 

— ADDS AX REGISTER TO 

BLOCK 

0818 ! 





0918! 



addToBlock 



0918! 

53 


PUSH 

BX 
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0919! 

SB 

D8 


MOV 

3X, ax 

0918 ! 






09IB ! 

A1 

3205 


MOV 

AX, bloci+2 

09IE ! 

86 

EG 


XCHG 

AH/ AL 

0920! 

03 

C3 


ADD 

AX, BX 

0922! 

86 

EO 


XCHG 

AH, AL 

0924! 

A3 

B205 


MOV 

block+2, AX 

0927 l 






0927 ! 

Ai 

3005 


MOV 

AX, block 

092A ! 

86 

EO 


XCHG 

AH, AL 

092C I 

15 

00 00 


ADC 

AX, 0 

092F 1 

86 

EO 


XCHG 

AH, AL 

0931 ! 

A3 

BOOS 


MOV 

block, AX 

0934! 






0934! 

5B 



POP 

BX 

0935! 

€3 



RET 


0936! 






0936! 




; * * * * * * * * * * # * * * * * x ###****’*******#•******•****•*****•*•#***#**##-***##**•&*■&** 

0936! 




/ 


0936! 




; NEXT BLOCK — 

adds 1 to the 4 byte abs disk address in var block 

0936! 




} 


0936! 





0936! 




ns* fcBIoc k 


0936 ! 

50 



PUSH 

AX 

0937! 

es 

01 00 


MOV 

AX, 1 

093A! 

E8 

D3FF 


CALL 

addToBlock 

093D! 

58 



POP 

AX 

093E ! 

C3 



RET 


093F! 






093F ! 






093F ! 





093F! 




/ 


093P * 




j LOGON ~ — read 

drive info table; prompts user for userid and password/ 

093F ! 




; loads users Network User entry into nuRee 

093F ! 




1 


093F! 




; *#*****^***^*^^**#*^^* s .1*^ 5t ##*•******•***•**#•*•*•****#’*■***•##*#**»*•**#*#*•*****•?*■*•*#* 

093F! 




logon 


093F ! 

E8 

E5FC 


CALL 

home ;clear screen 

0942 ! 

€6 

06 AF05 

01 

MOVE IM 

drive,1 ; read DX table from drive 1 

0947! 

BE 

2003 


LEA 

SI,diAdd i block address of DI table 

094A! 

BF 

BOOS 


LEA 

DI,block ;param for read block routine 

094D! 

E9 

04 00 


MOV 

CX,addLen ;length of abs block address 

0950! 

F3 

A 4 


REP MOVSB 

idiove address to parm area 

0952! 






0952 i 

E8 



CALL 

readBloc k ;do the read 

0955! 

SO 

3£ 3805 

00 

CMPBIM 

ioRetCode, 0 > was read ok? 

095A ! 

74#* 


JE 

*30 i yes 

095C < 




*10 


095C ! 

BE 

1 SO 1 


LEA 

SI, badDiflsg i bad DI table message 

095F! 

E8 

EFFC 


CALL 

printStr ;print it 

0962! 




*15 


0962! 

EBFE 


JMP 

*15 ;and loop 

0964! 




*20 


0964! 

BE 

3F01 


LEA 

SI,invDiMsg ;not inited Di table msg 

0967! 

ES 

E7FC 


CALL 

printStr 



Page 

- 23 CIIBOOT 

^ | ,£* ' •£$* 4$* 

CONSTELLATION II BOOT FOR THE 
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096A; 

EBF6 


JMP 

$15 

z loop forever 

096C : 



$30 




096C ! 

BE 

•a- 


LEA 

SI,buffer 

zaddress of black from read 

096F! 

E8 

9BFE 


CALL 

fIipDi 

; make sex correct 

0972! 

81 

7C 44 BE 07 


CMP 

(SI+diSpecial >, 1982 

/is DI table ini ted? 

0977! 

75EB 


JNE 

$20 

/ no,print err and hang 

0979! 

80 

70 34 01 


CMPBIM 

(SI+diDrvInit), 1 


097D ! 

7 5E5 


JNE 

$20 


097F ! 

SO 

70 38 01 


CMPBIM 

(SI + diOnIins ), 1 


0983 ? 

75DF 


JNE 

$20 


0985 ! 







0985! 

BF 

2904 


LEA 

DI. diRee 

; move buffer to record area 

0988! 

B9 

SB OO 


MOV 

CX, diRecSize 


098B! 

F3 

A4 

REP 

MOVSB 



098D! 







09SD! 



logon! 




098D! 

E8 

66 FD 


CALL 

putLogo 

z put logon msg on screen 

0990! 

E8 

6 DFD 


CALL 

g s fcUs arid 

; get user name 

0993! 

E8 

AOFD 


CA! L 

encry p tMane 

,• encrypt it for search 

0996! 







0996 < 

BB 

2904 


LEA 

EX, d i R e c 

/address of DI record 

0999! 

80 

77 46 


LEA 

SI, (BX+diNuAddr) 

/move add of NU table to parm area 

099C ! 

BF 

BOOS 


LEA 

DI, block 


099F ! 

B9 

04 00 


MOV 

CX, addLen 


09 A2! 

F3 

A 4 

REP 

MOVSB 



09A4! 







09A4 ! 

SB 

4F 3A 


MOV 

CX, ( BX+diNuBIks) 

inumber of blocks in NU table 

09A 7! 

89 

OE 5E05 


MOV 

nunBlocks,CX 


09 A B ! 







09A B! 



Iogon2 




09AB ! 

83 

3E 5E05 00 


CMP 

numBloc ks, 0 

/are we all done? 

09B0! 

75#?> 


JNE 

logons 

i no read next block in NU 

09B2! 

BA 

00 12 


MOV 

DX, xylnvUsr 

/print invalid user message 

09B 5! 

E8 

8 CFC 


CALL 

g o t o x y 


09B8! 

BE 

6 AG 1 


LEA 

SI, invUsrflsg 


09BB ! 

ES 

93FC 


CALL 

printStr 


09BE! 

E8 

46FF 


CALL 

ilia i tForkey 

/wait for a keypress 

09C1 ! 

EBCA 


JMP 

logon! 

/try again 

0903! 



1ogon3 




0903 ! 

E8 



CALL 

readBlock 

/ read one block of NU 

0906! 

BE 



LEA 

SI, buffer 


0909! 

ES 

S7FE 


CALL 

f1ipNu 

/make sex correct 

090 C ! 

BB 



LEA 

BX, buffer 

/address of buffer 

090 F! 

BA 

10 00 


MOV 

DX, nuRPE 

/# of entries in NU block 

09D2 ! 



Iogon4 




09D2! 

80 

77 00 


LEA 

SI, (BX+nuUser) 

/ address of user name in buffer 

09D5 ! 

BF 

7A05 


LFA 

DI , cryptName 

/ address of name user entered 

09D3! 

B9 

OA 00 


MOV 

CX, narsLen 

/ compare length 

09DB ! 

F3 

A6 

REP 2 

CMP SB 


zcompare them 

09DD ! 

74** 


JZ 

logons 

/ found match 

09DF! 







09DF ! 

S3 

C? SO 


ADD 

BX, nuRecSize 

/ point to next entry in table 

09E2 ! 

4A 



DEC 

DX 

/ any more left in buffer 

09E3! 

75ED 


JNZ 

logon4 

i try again 

09E5 ! 

E8 

4EFF 


CA! L 

nsxtB Ioc k 

z point to next block 



4 

f 

€ 

f 

« 

* 

I 

f 

1 

I 

t 

€ 

t 

I 

C 

€ 

€ 

I 

t 

f 

f 
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09E8 I 
09EC ! 
09EE! 
09EE: 
09F1 ; 
09F4 1 
09F6! 
09FS! 
09FS! 
09FB 1 
09FE! 
QA01 S 
QA04 < 
0A06! 
GAOS! 
GAOS i 
OAOB : 
GAGE I 
OA11 ! 
OA14 5 
OA17 1 
0A19! 
OA1B 5 
0 A1B ! 
OA1EI 
0A21 ; 
0A24: 
0A27; 
0A2AS 
0A2D { 
0A2D! 
GA2F! 
OA32 l 
0A35 I 
0A37 ! 
OA37 ! 
0A3C l 
0A3E! 
0A43! 
OA45 ! 
0A45! 
0A48 S 
0A4B I 
0A4E! 
0A4E ' 
0A4E: 
0A4F! 
0A4F \ 
OA4F! 
0A4F ? 
0A4F! 
0A4FS 
0A4F I 
0A4F f 
0A4F' 


>4 C 11 BOOT 


Fi I 


**# CONSTELLATION II SOOT FOR THE IBM/PC 


•SS-S--M- 


FF QE SEC3 


DEC 

numBlocks 

t 

EBBD 

1 ogonS 

JMP 

logon2 

- m 

BF 7105 


LEA 

DI. userPas sword 

;see if user has password g 

B9 08 00 


MOV 

CX,passLen 


BO 20 


MOV 

AL, 20H 

.fill with blanks 

F3 AA 

REP 

STOSB 


i 

ES C4FD 


CALL 

encryp trassword 

i encrypt it for search 

8 D 77 OA 


LEA 

SI. (BX+duPass) 

> set up registers for match g 

BF 8405 


LEA 

DI. cryptPass 


B9 08 00 


MOV 

CX. passLen 


F3 A6 

REPZ 

CMP SB 


ido they match'? * 

74#* 


JZ 

logons 

i yes, user has no password 

ES ODFD 


CALL 

getPassword 

f 

E8 B1FD 


CALL 

encryptPassword 

iencrypt it for search 

SD 77 OA 


LEA 

SI. (B X + d u P a s s I 

;set up registers for match 

BF 8405 


LEA 

DI. cryptPass 

f 

B9 08 00 


MOV 

CX. passLen 

F3 A6 

REPZ 

CMPSB 


;do they match? 

? 4#* 


JZ 

log onA 

; yes, user has no password ^ 

BA 00 12 


MOV 

DX. xylnvPass 

iset x,y for inv password msg 

cc s'lcr 


CALL 

gotoxy 

| 

BE 7C01 


LEA 

SI. invPassMsg 


ES 2AFC 


CALL 

printStr 

i print error message 

ES DDFE 


CALL 

waitForKay 

;wait for a key press g 

i and try again 

E9 60FF 

logons 

JMP 

logonl 


SB F3 


MOV 

SI. BX 

;si = add of user NU entry g 

BF 8404 


LEA 

DI. nyRec 

i di = record to store NU in 

B9 20 00 


MOV 

CX. nuRecSi ze 


F3 A 4 

REP 

MOVSB 


i ” M entT i to rscaTl1 area i 

83 3E A004 04 


CMP 

nuRec+nuOpSys. ibmDos 

;we support only ibmDos and UCSD40 

74#* 


JE 

I og on? 

| 

S3 3E A004 11 


CMP 

nuRee+nuOpSys. UCSD40 


7 4'** 


JE 

logon? 


BE A901 


LEA 

SI,badOsMsg 

i 

ES A i FO¬ 


CALL 

printAndL'a i t 


ES 3FFF 

logon? 

JMP 

logon! 

< 

C3 


RET 


i and return g 


1 


i Fim w 

.SERVER 

1 

— finds disk server with name that is in NU table 


i 


carry set if server 

is not found. Places server 


* 


host number in serverHost g 


IF a disk server doesnt respond we assume that it is a 
old disk server that doesnt have the const II protocol 


i 

« 



*** CONSTELLATION II BOOT FOR THE IBM/PC 


■3-a-a- 


Page 


C11 BOO! 


r x 


0A4F l 
0A4F; 
0A4F \ 
0A4F1 


and we continue with issueing an error message. 


; a*##**** n 3 ******#****#****#*lHf#**##***H***************** 

findServer 


0A4F i 

BE 

9604 

LEA 

SI,nuRec+nuServer 

i users server name 

0A52 i 

BF 

9805 

LFA 

DI # temp Finale 


0A55 I 

B9 

OA 00 

MOV 

CX# nameLen 


OA5S! 

F3 

A4 

REP MGVSB 



UA 3 A i 






0A5A : 

E8 

20FD 

CALL 

deCryptName 

;decrypt server name 

0A5D! 

BE 

SCO 5 

LEA 

SI, tempDname 


0A60I 

BF 

C905 

LEA 

DI, wayName 

# WhereAreYouName 

QA63I 

B9 

OA 00 

MOV 

CX#nameLen 


0A66 1 

F3 

A4 

REP MQVSB 



0A68 1 






0A68! 

AO 

7905 

MOV 

AL# userHost 

;our host number 

GA6B I 

A2 

C605 

MOV 

maySource# AL 

■, put in where are you message 

0A6E i 






QA6E ' 

BE 

C105 

LEA 

SI.> whereAreYou 

i get ready to send packet 

0A71 ! 

B9 

12 00 

MOV 

cx, is. 


0A74 •: 

BF 

D305 

LEA 

DI. mu Id Is 


0A77» 

EA 

12 00 

MOV 

DX, 18. 


0A7A I 

B3 

01 

MOV 

BL, 1 

;wait .86 seconds 

0A7C J 

B7 

03 

MOV 

BH, 3 

; try 3 times 

OA7E I 

BO 

FF 

MOV 

AL,OFFH 

#broadcast message 

0A80 I 

B4 

03 

MOV 

AH, 3 

;network xmit/recv cmd 

0AS2J 






0A82 i 

FF 

IE 0703 

CALLL 

Cronlo) 


0A86 * 

OA 

CO 

OR 

AL# AL 

;was return ok 

OASS! 

74 ## 

JZ 

$10 

i yes 

0A8A ,* 






0A8AI 



i LEA 

SI, noServarMsg 

;THIS IS NOT USED CAUSE THIS BOOT 

0A8A ‘ 



; CALL 

printAndUait 

; WITH OLD DISK SERVERS 

0A8A! 



STC 


i set Error 

0A8A ‘ 

F8 


CLC 



0A8B 1 

C3 


RET 



0A8C 1 



$10 



0A8C 1 

AO 

DS05 

MOV 

AL,miiSource 

i now start using this server 

oasf: 

A2 

A305 

MOV 

serverHost, AL 


0A92 .* 

F8 


CLC 


;set server found 

QA931 

C3 


RET 



OA94 { 






0A94 < 






0A94 1 






OA941 



;################################################################### 

0A94 ! 



i 



0A94 l 



; OMNI_HELLQ — 

broadcast a hello 

message on the network 

0A94 l 



S 



0A94J 




0A94! 



omniHe 1 lo 



OA94 < 

BE 

6705 

LEA 

SI,userName 


0A97! 

OF 

EDOS 

LEA 

DI, helloflame 


0A9A! 

B9 

OA 00 

MOV 

CX, nameLen 


0A9D f 

F3 


REP MOVSB 






File: 


*** CONSTELLATION II 
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*** 
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0A9F l 

AO 

7905 

NOV 

ALr userHost 

QAA2; 

A2 

EA05 

MOV 

he 11oSourcs,AL 

0AA5! 





0AA5! 

AO 

A 20 4 

MOV 

AL; nuRsc+nuHostType 

0AA8 ‘ 

A2 

EC 05 

MOV 

heI loType,- AL 

OAAB i 





OAAB ! 

BE 

E505 

LEA 

SI>hello 

OAAE; 

B9 

12 00 

MOV 

CX» IS. 

OAB1 J 

B7 

01 

MOV 

BH; 1 zsend it once 

0AB3» 

BO 

FF 

MOV 

AL. OFFH zbroadcast message 

OAB 5! 

B4 

02 

MOV 

AH. 2 z xmit data to server 

0AB7! 

FF 

IE D703 

CALLL 

Cromlo) 

OABB ; 

C3 


RET 


OABC i 





OABC 1 




OABC 



i 


OABC * 



/ FLAT_HELLO — 

sends an add active command to the disk server 

OABC i 



i 


OABC f 



• *************x 

*** ************************************************** 

OABC «' 



flatHello 


OABC 1 

BE 

6705 

LEA 

SI. userNane 

OABF! 

BF 

F905 

LEA 

DI< addActName 

0 AC 2 1 

B9 

OA 00 

MOV 

CX; nameLen 

OAC 5 I 


A 4 

REP MOVSB 


0 AC 7 ! 





OAC 7,' 

BE 

F705 

LEA 

SI. addActive 

OACA I 

B9 

12 00 

MOV 

C X j IS, 

QACDI 

BA 

00 00 

MOV 

DX; 0 ; no bytes back 

OABO! 

B4 

01 

MOV 

AH; 1 ; xmit/recv to drive 

0AD2 l 

FF 

IE D703 

CALLL 

(romlo) 

0AD6 ! 

C3 


RET 


0AD7 ! 





0AB7! 




0AD7 ! 



i 


0AD7 ! 



/ FIMDJBTJDISK - 

- 1. Searches all drives starting at drive 1 looking 

0AD7! 



; 

for a driveUser entry that contains the flag 

0AD7 ! 



f 

indicating that this drive contains the volume 

0AD7 ,* 



i 

that is the boot volume for this user. 

0AB7 : 



? 

2. Searches the driveAccess table on this drive 

0AD7! 



r 

for the entry that is the boot volume. 

0AD7 i 



} 

3 Searches the driveVolume table for the entry 

0AD7! 



i 

that is the boot volume 

0AD7! 



s 

4. Returns with carry set if boot volume was not 

0AD7 ‘ 



} 

found; else carry is cleared 

0AD7 



i 

5. Moves the found entry into the var dvEtRec 

0AD7 ! 




0AD7 ! 



Pi ndEtDisk 


0AB7 ‘ 

ES 

FBFD 

L ALL 

chkNumDrives /find number of drive 

OADAl 

C6 

06 AF05 00 

MOVBIM 

drive,0 ;ini t drive to zero 

OADF! 



f indBtOl 


OADF! 

FE 

06 AF05 

INC MB 

drive /look at next drive 

0AE3' 

AO 

AF05 

MOV 

AL;drive /have we done all dr i 

0AE6! 

3A 

06 A005 

CMP 

AL; dr vsOr.Line 

OAEAi 

76** 

JNA 

find3t02 /no now read drivelnf 


. ns 


tab 1 e 
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OAEC ! 
OAEFJ 
0AF2 { 
0AF3 ! 
0AF4! 
0AF4 { 
OAF7! 
OAF A { 
OAFD ! 
OAFF ! 
OAFF ! 
0B02 1 
0B07 l 
0S09J 
OB 09 ! 
QBOC ! 
OB OF f 
OB OF ! 
OB 1 4 * 
OB i 6! 
OB 1A 
OB 1C I 
0B20! 
0822! 
0B22! 
0B25« 
0B23! 
0B2A! 
0B2A! 
0B2D! 
0830! 
0830! 
0B33! 
OB36 ! 
0B39! 
0B3B l 
0B3B l 
0B3B! 
0B3B 1 
0B40 1 
0B42 i 
0B44 * 
0B44! 
0B47 I 
0B4A! 
OB 40! 
0B4D! 
OB 50! 
OB 53! 
OB 53! 
0B56! 
0859! 
OB SC! 
0B5E! 
0B60! 
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BE SB01 



LEA 

Bit noBootMsg 

; boot volume not -Pound 

ES FAFB 



CALL 

printAndNai t 

;wait for keypress 

F9 



STC 


;set return code 

03 



RET 





f i n d B t02 



BE 2003 



LFA 

SI/ d iAdd 

iblock add of DI table 

BF BOO5 



LEA 

DI /block 


B9 04 00 



NOV 

CXt addLen 


F3 A 4 


REP 

M0VS8 


;set up for readBlock 

E8 ##** 



CALL 

readBIoc k 

;read the drive info table 

SO 3E BS05 00 


CMPBIM 

ioRetCodSi0 

;did we read it ok? 

7SB6 



ONE 

findBtOl 

i no/ try next drive 

BE #### 



LEA 

SI; buffer 

/table was read in here 

ES FEFC 



CALL 

f1ipDi 

;flip sex 

81 70 44 

BE 07 


CiiP 

<SI+diSpecial ), 1932 

;is drive info valid? 

7509 



JNE 

findBtOl 

;no/ try next drive 

80 70 34 

01 


CMP8IM 

<SI + diDr vInit) / 1 


7503 



JNE 

findBtOl 


30 70 38 

oi 


CMPBIM 

(SI + d iOnl ine )1 


75BD 



JNE 

findBtOl 


BF 2904 



LEA 

DIidiRec 

/•move to record area 

B9 5B 00 



MOV 

OX, diRecSize 


F3 A 4 


REP 

MOVSE 



A1 6704 



MOV 

AX/ diRac+diDuBl ks 

;number of blocks in DU 

A3 5E05 



MOV 

nUiilS 1 OC k Si AX 


BE 7704 



LEA 

si/ di Ree+DiDuAddr 


BF BOOS 



LEA 

DI/ block 


B9 04 00 



MOV 

OX/ addLen 

;set up address of DU 

F3 A4 


REP 

MOVSB 





findBtOG 

) 




83 3E 5E05 00 


CMP 

nupBlocks/0 

;have we searched entire DU 

75#* 


JNE 

*05 


EB9B 

*05 

JMP 

f indBtOl 

; yes/ try next drive 

ES *### 


CALL 

readBIock 

;read driveUser table 

BE #### 


LEA 

SI /buffer 

i flip 

E8 1BFD 


CALL 

f 1 ip Du 

i word sex 

BB *##* 


LEA 

BX, buffer 

/•address of buffer 

BA 10 00 

*10 

MOV 

DX, duRPB 

/•records per block 

8D 77 00 


LEA 

SI/(BX+duUser) 

;compare user id 

BF 7AOS 


LEA 

DI /cryp tName 


39 OA 00 


MOV 

CXz nameLert 


F3 A6 

REPZ 

CMPSB 



74#* 


JZ 

findBt04 

;found match in DriveUser 
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0B60: 

83 C3 20 


ADD 

EX, duRecSize 

; next in buffer 

0B63! 

4 A 


DEC 

DX 

; any left in buffer 

0B64 { 

75ED 


JNI 

$ 10 

; yes, look at next entry 

0E66 i 






0B66! 

ES CDFD 


CALL 

nextBlock 

i add 1 to address 

GB69 < 

FF OE 5E05 


DEC 

nu.T.B locks 

;dec number of blocks left 

GB6D! 

EBCC 


-JMP 

findBfc03 

;read next block 

QE6F f 


f indSt04 



0B6F l 

S3 7F 18 01 


CMP 

( B X+duBootlnfo), 1 

; is boot volume on this drive 

OB 73.* 

74** 


■JE 

$01 


QB75 ! 

E9 67FF 


JMP 

findBtOl 

; no, try next drive 

0B7S,* 


$-01 




OB78 ! 

SB F3 


MOV 

SI, BX 

.address of matching DU 

OB 7 A! 

BF AC04 


LEA 

DI.duRec 

; address of record area 

0B7D1 

B9 20 00 


MOV 

CX, duRecSi ze 


0B80 t 

F3 A4 

REP 

MGVSS 


;move DU rec to record area 

OB 82 ! 






OB82 S 

SB OE 6904 


MOV 

CX, diRec+diDaSlks 

;num blocks in DA table 

0B86 \ 

89 OE 5E05 


MOV 

nusiiSlocks, CX 


0B8AS 






0B8A ! 

BE 7B04 


LEA 

SI. diRec + diDaAddr 


0B8D! 

BF BOO5 


LEA 

DI.block 


0B90 J 

B9 04 00 


MOV 

CX. addLen 


0B93 ' 

F3 A4 

REP 

MOVSB 



0B95 i 






QB95 


f i ndBtOS 



0B95! 

83 3E 5EQ5 00 


CMP 

numBlocks.0 

i any left in DA table 

0B9A J 

75** 


JNE 

$01 


0B9C ! 

E9 40FF 


JtIP 

findBtOl 

i no, try next drive 

0B9FJ 


$01 




OB9F! 

E8 **** 


C AuL> 

readBlock 

; read DA entry 

0BA2 ' 

BE **** 


LEA 

SI. buffer 


0BA5 * 

E8 96FC 


CALL 

fIipDa 

; flip word sex 

0BA8! 






0BA8I 

SB DE 


MOV 

BX, SI 

; EX = add of DA entry 

OB A A J 

BA 40 00 


MOV 

DX, daRPS 

; records per block 

OBAD . 


$10 




OBAD! 

SB 47 00 


MOV 

AX,(BX+daUserid ) 

.userid in DA entry 

OBBO ! 

3E 06 BE04 


CMP 

AX, duRec+duUserid 

;does userid match 

0BB4 1 

75** 


J.ME 

$20 

; no, goto next entry 

0BB6 ! 






QBB6! 

F7 47 07 01 00 


TEST 

<BX+daReadBoot),daSootFlag 

i i s this the boot entry 

OBBB l 

75** 


JNZ 

findBt06 

; yes 

OBBDl 


$20 




QBBD l 

83 C3 08 


ADD 

EX,daRecSize 

;next entry 

OBCOf 

4 A 


DEC 

DX 

: any left 

obc i ; 

75EA 


JNZ 

$10 

; yes 

0BC3J 






0BC3 l 

E8 70 FD 


CALL 

nex tB loc k 


OSC6 ! 

FF OE 5E05 


DEC 

nufflB locks 


OBC A f 

EBC9 


JMF 

findBtOS 

;get next block maybe 

OBCC 


f indEtQ6 



obcc ; 

SB F3 


MOV 

SI, BX 

;add of found DA entry 

OBOE ' 

BF A404 


LFA 

DI,daRec 


OBD1 ! 

B9 08 00 


MOV 

CX, daRecSi ze 




i 
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0BD4 { 

F3 A 4 

REP MOUSE 


;move DA to record area 

0BD6! 

0BD6I 

SB OE 6504 

MOV 

CX, d i R e e. + d iDvBIks 

;get ready to read driv 

OB BA ! 

89 OE 5E05 

MOV 

nu.r.B locks; CX 


OBDEI 

OBDE! 

BE 7304 

LEA 

SI; diRec+diDvAddr 


OBEi : 

BF BOOS 

LEA 

DI; block 


0BE4 i 

B9 04 00 

MOV 

CX; addLen 


0BE7 ‘ 
0BE9! 
0BE9! 
0BE9 < 

F3 A4 

83 3E 5E05 00 

REP MQVSB 

f indEt07 

CMP 

r.umBloc ks; 0 

;any blocks left in BV 

OEEE! 

75** 

ONE 

$01 


OEFO! 

E9 EC'FE 

JMP 

findBtOl 

; no; try next drive 

0BF3 1 
0BF3! 

E8 **** 

$01 

CALL 

rsadBlock 


0BF6 ? 
0BF6! 

BB **** 

LEA 

BX; buffer 

;EX=add of DV entry 

0BF9! 

BA 10 00 

MOV 

DX, dvRPB 

;entries per block 

OBFC ! 
OBFC t 

8D 77 OA 

$10 

LEA 

SI; (BX+dvStartBlock ) 


OBFF i 

BF A604 

LEA 

DI; daRec+daVo1Addr 


0 C 02 ; 

B9 04 00 

MOV 

CX»addLen 


0C05I 

F3 A 6 

REP2 CHPSB 


; is this the volume? 

0C07 J 

74** 

JZ 

findBtOS 

;yes; finally here 

DC 09 1 
0C09I 

83 C3 20 

ADD 

BX;dvRecSize 

ipoint to next entry 

OCOC I 

4A 

DEC 

DX 

; any left 

OCOD! 

75ED 

JNZ 

$10 

; yes 

OC OF« 
OCOF I 

E8 24FD 

CALL 

nextBlock 


OC 12 i 

FF OE 5E05 

DEC 

numRlocks 


OC 16 1 

ESDI 

• JMP 

findBt07 


0C18S 

0C1S! 

SB F3 

f indBtOS 

MOV 

SI; BX 

;add of DV entry 

OClAi 

BF EC04 

LEA 

DI; d vB tR e c 

, add of record area 

OC 1D! 

B9 20 00 

MOV 

CX; d vRecSi ze 


0C20 1 

F3 A4 

REP MOVSB 


imove it to record area 

0C22! 
0C22 i 

F8 

CLC 


iset no error 

0C23 1 
0C24 { 

C3 

RET 

;******************************************************************* 

0C24 f 
0C24 I 


t 

; FIND_MT_DISK 

— 1. Searches all drives 

starting at drive 1 looking 


0C24 : 
0C24; 
0C24 ; 
0C24 i 
0C24 ! 
0C24 1 
OC 24! 
0C24 i 
0C24I 
0C271 
0C2S1 


AO AF05 
50 


for a driveUser entry for the logged on user 

2. Searches the driveAccess table on this drive 
for the mounted entrys for this user. 

3. Searches the driveVolume table for the entry 

; that matches the drive access volume. 

; 4. Moves the found entrys into a mount table 

; *********************** X******************************************* 

findMtDis k 

MOV AL;drive 

PUSH AX > save current drive 


€ 
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€ 

€ 

€ 
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€ 
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DC 28 ; 

BE 

•s-s-a-s- 

0C2B { 
0C2F { 

89 

36 0C05 

0C2FJ 

BE 

•JHHt-S- 

0C32! 
0C36I 

89 

36 0E05 

0C36! 

BE 

***# 

0C39 1 
0C3D * 

89 

36 1005 

0C3D! 
0C42! 

C u 

06 AF05 ■ 

0C42 ‘ 

FE 

06 AF05 

Oc48 i 

AO 

AF05 

0C49I 

3A 

06 A005 

0C4D! 
0C4F ! 


0C4F ‘ 

58 


OC 50 i 
0053 5 

A2 

AF05 




OC 54; 

O 


OC 54 i 

BE 

2003 

0C57I 

BF 

BOOS 

GCSAI 

B9 

04 00 

0C5D I 
0C5F ‘ 

F3 

A4 

0C5FS 

ES 

■SRH** 

0C62 ,* 

80 

3E B805 ■ 

0C67! 
0C69I 

75D9 

0C69! 

BE 


0C6C S 
OC 6F» 

E8 

9EFB 

OC6F: 

81 

7C 44 BE 

0C74! 

75C 

€ 

0C76! 

80 

7C 34 01 

OC 7 A S 

"7 

'6 

OC7C ! 

80 

7C 38 01 

0C80 * 
0C82 I 

75C0 

OC82 1 

BF 

2904 

0C85 i 

B8 

SB 00 

0C88 i 
0C8A I 

F3 

A4 

0C8A < 

At 

6704 

0C8D J 
0C90! 

A3 

5E05 

0C90 S 

BE 

7704 

0C9 3! 

BF 

BOOS 

OC 96 i 

B9 

04 00 

0C99 * 
0C9B I 
0C9B S 
0C9B , 

F3 

A4 

0C9B i 

83 

3E 5E05 



LFA 

SI, ir.ntDvTab 


MOV 

mntDvPoint,SI 


LEA 

SI, mntDaTab 


MOV 

mntDaPoint, SI 


LEA 

SI, mntDrvTab 


MOV 

mntDrvPoint,SI 


MOVE IM 

drive, 0 

f indMtOl 

INC MB 

dr ive 


MOV 

AL, dr ive 


CMP 

AL, drvsOnLine 


JNA 

findMt02 


POP 

AX 


MOV 

drive,AL 

RET 

findMt02 



LEA 

SI, diAdd 


LEA 

DI, block 


MOV 

CX, addLen 

REP 

MOVSB 



CALL 

readBlock 


CMPBIM 

ioRetCode, 0 


JNE 

findMtOl 


LEA 

SI, buffer 


CALL 

f1ipDi 


CMP 

(SI+diSpecial), 198, 


ONE 

findMtOl 


CMPBIM 

< SI + diDr vInit >, 1 


•JNE 

findMtOl 


CMPBIM 

(Sl+diOnline),1 


JNE 

findMtOl 


LEA 

DI.diRec 


MOV 

CX, diRecSize 

REP 

MOVSB 



MOV 

AX, diRec+diDuBIks 


MOV 

nuiiiBloc k s, AX 


LFA 

SI, diRec+DiDuAddr 


LEA 

DI,block 


MOV 

CX, addLen 

REP 

MOVSB 



findMt03 

CMP nusRlocksi0 


f 


| 


••'PC 

; set up table pointers 


; init drive to zero 

i look at next drive 
; have we done all drives? 

; no now read driveInfo table 

;restore current drive 

.all done, have searched all 
;block add of DI table 

; set up for readB1oc fc 

i read the drive info table 
i did we read it ok? 
i no, try next drive 

i table was read in here 
; f1 ip sex 

i is drive info valid? 
no, try next drive 

i move to record area 

i number of blocks in DU 

»set up address of DU 

;have we searched entire DU 


t 
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UL AO •* 

75*» 


w^«-ir 

40 S 


0CA2 1 

EB9E 


JMP 

f i ndMtOl 

i yes, try next drive 

0CA4 ,* 



4-05 




0CA4 \ 

E8 



CALL 

readBloc k 

; read driveUser table 

0CA7 l 

BE 



LEA 

SI/buffer 

; f 1 ip 

OCAAi 

ES 

BBFB 


L AL L. 

f 1 ipDu 

i word sex 

OCAD: 







ocad: 

BB 

■*■*•*•* 


LFA 

BX, buffer 

i address of buffer 

OCBOf 

BA 

10 00 


MOV 

DX, duRPB 

;records per block 

0CB3! 



410 




0CE31 

8D 

77 00 


LEA 

SI/(BX+duUser) 

;compare user id 

GCB6 ‘ 

BF 

7 AO 5 


LEA 

01/c r y p t Marne 


0CB9! 

B9 

OA 00 


MOV 

CX/ naseLen 


OCBC i 

F3 

Ait 

REPZ 

CMPSB 



OCBE! 



JZ 

findMt04 

; found match in DriveUser 

OCCO! 







occo; 

83 

C3 20 


ADD 

BX/ duRecSi ze 

; next in buffer 

0CC3 1 

4A 



DEC 

DX 

, any left in buffer 

0CC4! 

75ED 


JNZ 

410 

; yes, look at next entry 

0CC6 1 







QCC6! 

E8 

6DFC 


CALL 

nsxtBIoc k 

; add 1 to address 

OC C 9 i 

FF 

OE 5E05 


DEC 

nunElocks 

idee number of blocks left 

OCCD l 

EBCC 


JMP 

findMtOS 

; read next block 

OCCF! 



findMtG 




OCCF I 

8B 

F3 


MOV* 

SI/ BX 

;address of matching DU 

OCDi: 

BF 

AC 04 


LEA 

DI, duRec 

i address of record area 

0CD4 ' 

B8 

20 00 


MOV 

CX/ duRecSize 


0CD7 1 

F3 

A4 

REP 

MOVSB 


■, move DU rec to record area 

GCD9I 







QCD9 i 

SB 

OE 6904 


MOV 

CX,dIRec+dIDaBlks 

; num blocks in DA table 

OC DD! 

89 

OE 5E05 


MOV 

nun!?locks/ CX 


0CE1 







OCE1 1 

BE 

7B04 


LEA 

SI/diRec+diDaAddr 


OCE4 1 

BF 

BOOS 


LEA 

Dh block 


0CE7 i 

B9 

04 00 


MOV 

C X / a d d L e n 


OCE A i 

F3 

A4 

REP 

MOVSB 



OCEC i 







OCEC J 



f indMtOS 



OCEC 8 

83 

3E 5E05 00 


CMP 

nuaB1ocks, Q 

; any left in DA table 

OCF1 ! 

75** 


J14F 

401 


QCF3! 

E9 

4CFF 


Ji'iP 

findMtOi 

; no, try next drive 

0CF6 1 



401 




0CF6 • 

E8 



CALL 

readBIoc k 

; read DA entry 

0CF9 1 

BE 

s-s-s-s- 


LEA 

SI/buffer 


OCFC f 

E8 

3FFB 


CALL 

flipDa 

;flip word sex 

OCFF I 







OCFF i 

8B 

DE 


MOV 

BX, SI 

, BX = add of DA entry 

0D01 i 

BA 

40 00 


MOV 

DX, daRPB 

;records per block 

0D04 ? 



410 




0D04 S 

83 

7F 00 FF 


CMP 

(BX+daUserId)» OFFFFH 

;is this table entry null? 

0D03! 

74** 


JE 

420 

; ignore it 

ODOA I 

Ai 

BE04 


MOV 

AX> duRec+duUserid 

;our users id 

ODOD! 

39 

47 00 


CMP 

(BX+daUser 16)> AX 

; do they match 

0D10! 

74** 


JE 

415 

;yes 

0D12I 

72** 


JB 

420 

; file is ordered by userid 
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GDI42 

E9 

2BFF 


JMP 

findMtOl 

GDI 7! 
GDI7! 

SO 

7F 06 00 

$15 

CKPBIM 

(BX+daMntlnfo >, 0 

GD1B 2 



J E 

$20 

ODIB i 
0D1D2 

E8 



CALL 

f indMt06 

OD 20! 
0D2G 2 
0D20 1 

S3 

C3 08 

$-20 

ADD 

BX,daRecSize 

0D23 2 
0D24 i 

4A 

75DE 


DEC 

JN 2 

DX 

$10 

GD26 ! 
0D26! 

ES 

ODFC 


CALL 

nextBlock 

0D29 2 

FF 

OE 5E05 


DEC 

nsJ^Rloc ks 

0D2D! 

EBE 

ID 


JMP 

f indMtOS 

0D2F! 
0D2F 2 
OD2F2 
0D2F 2 

ES 

D7FS 

f indlit 

06 

CALL 

saveRegs 

OD32 2 
0D322 

A1 

5EG5 


MOV 

AX, nu<«Slocks 

0D35 i 

A3 

6005 


MOV 

holdMumSlocks, AX 

0D38I 
0D38! 

BE 

BOOS 


LEA 

SI, b lock 

0D3B 2 

BF 

8405 


LEA 

DI,hoIdBlock 

0D3E2 

S9 

04 GO 


MOV 

CX,addLsn 

0D41 ; 

F3 

A4 

REP 

MQVSB 


0D43 2 
0D43! 

BE 

■St-SHHt 


LEA 

SI, buffer 

0046 2 

BF 



LFA 

DI,holdBuffer 

0D49 2 

B9 

00 02 


MOV 

CX, 512. 

0D4C 

F3 

A4 

REP 

MOVSB 


0D4E < 
0D4E { 

SB 

F3 


MOV 

SI. BX 

0D5Q! 

EF 

A404 


LEA 

DI, daRec 

OB53 2 

B9 

08 00 


MOV 

CX, daRecSi ze 

0D562 

F3 

A4 

REP 

MOVSB 


0D58! 
OD5S2 

SB 

OE 6504 


MOV 

CX, diRec+diDvBlks 

0D5C ! 

89 

OE 5E05 


MOV 

nuntPlocks, CX 

OD602 
0D6G! 

BE 

7304 


LEA 

SI,diRec+diDvAddr 

GD63 2 

BF 

BOO 5 


LEA 

DI, block 

GD 66 ! 

B9 

04 00 


MOV 

CX,addLen 

QD69 2 

F3 

A4 

REP 

MOVSB 


QD6B 1 
OD6B5 
0D6B 2 

S3 

3E 5E05 00 

f indMt07 

CMP 

nunBIoc ks,0 

OD 70 i 

74 ## 


JE 

findMtEnd 

OD72 2 

ES 



CALL 

readBloc k 

0075 f 
0D75 2 

BB 



LEA 

BX, buffer 

GD78! 

BA 

10 00 


MOV 

DX, dvRPB 

0D7B S 
GD7B I 

8D 

77 DA 

$10 

LEA 

SI, < SX+dvStartBloc b ) 


f 


4 
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0D7E1 

BF 

A604 


LEA 

DI <daRec+daVolAddr 


0DS1 1 

B9 

04 00 


MOV 

CX- addLen 


0D84 i 

F3 

A6 


REPZ CMPSB 


-is this the volume? 

0D86 1 

74## 


JZ 

FindMtOS 

» yes- finally here 

ODSS i 







QD8SI 

83 

€3 20 


ADD 

3XV dvRecSize 

-point to next entry 

0D8B ! 

4A 



DEC 

DX 

»any left 

0D8C f 

75ED 


JNZ 

f 10 

/ yes 

0D8E! 







0D8E! 

E8 

A5FB 


CALL 

ne > tB1oc k 


0D91 : 

FF 

OE 5E0S 


DEC 

nunRlocks 


0D95! 

EBD4 


JMP 

f ind-MtG7 


0B97 : 




findMtGS 



0D97 f 

80 

7F 14 01 


CMPBIM 

(BX+dvGlbAccess>- 1 

- is this volume visible 

0D9B ! 

75## 


J WE 

findMtEnd 

-no- forget it 

0D9D' 

ES 

#*•*■* 


CALL 

findMtLoad 

/load into table 

ODAO 




f indMtEnd 



OBAO! 

BE 

B405 


LEA 

SI-holdBIock 

/restore saved stuff 

0DA3I 

BF 

BOOS 


LEA 

DI, block 


0DA6! 

B9 

04 00 


MOV 

CX,addLen 


0DA9 i 

F3 

A4 


REP MOVSB 



ODAE ! 







ODAB < 

BE 

#»*•# 


LEA 

SI-holdSuffer 


ODAE ,* 

BF 

•**** 


LEA 

DI - boffer 


ODE 1 1 

B9 

00 02 


MOV 

CX, 512. 


0DB4? 

F3 

A4 


REP MOVSB 



0 DBS 1 







GDB6I 

A1 

6005 


MOV 

AX- holdNumBloc ks 


QDB91 

A3 

SE05 


MOV 

nunSI oc k - AX 


ODBC ! 







ODBC * 

E8 

59F8 


C A! L 

restregs 


ODBFf 

C3 



RET 



ODCO! 







odco; 




f indMtLoad 



ODCO! 

83 

3E 1205 

OA 

CMP 

•nntCount- cmtMa x 

/is table full 

ODC 5i 

73** 


JAE 

* 10 

/ yes 

0DC7 ! 







ODC 7! 

8B 

F3 


MOV 

SI- BX 

/add of DV entry 

ODC 9! 

SB 

3E 0C05 


MOV 

DI - fimtDvPoint 

-add of record area 

ODC D ‘ 

B9 

20 00 


MOV 

C X - dvRecSize 


ODDOJ 

F3 

A4 


REP MOVSB 


/move it to record area 

0DD2 i 







0DD2 I 

BE 

A404 


LEA 

SI-daRec 


ODDS ! 

SB 

3E OEOS 


MOV 

DI - mntDaPoint 


0DD9 ! 

B9 

OS 00 


MOV 

CX- daRecSize 


ODBC i 

F3 

A4 


REP MOVSB 



ODDE i 







ODD Ei 

SB 

IE 1005 


MOV 

BX-mntDrvPoint 


0DE2 I 

AO 

AFOS 


MOV 

AL-drive 


ODES : 

as 

07 


MOV 

(BX)- AL 


0DE7 ! 







0DE7 ; 

S3 

06 0C05 

20 

ADD 

mritDvPoint-dvRecSize 


ODEC ! 

S3 

06 OEOS 

OS 

ADD 

mntDaPoint- daRecSize 


ODF1 ! 

pp 

06 1005 


INC 

mntDrvPoint 


0DF5 ! 

FF 

06 1205 


INC 

mntCount 
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0DF9! *10 

0DF9S C3 RET 

ODFA! 

ODFA { ; SHM******•»**###tf*****************^*************** 

ODFA: 


ODFA! 




i READ J3LOCK — 

reads block specified 

by drive, block 

ODFA! 




/ 

returns data in VAR buffer 

ODFA! 




i 

returns return code in 

VAR ioRetCode 

ODFA i 




i 

returns length (including return code) in VAR retLen 

ODFA! 




} 



ODFA! 




; ****#**ttX if#-:*#****** ****************************************************** 

ODFA! 




readB1oc k 



ODFA S 
ODFD! 

ES 

OCF8 


CALL 

saveReg s 

/•save registers on stack 

ODFD i 
OEOO! 

ES 

B3FA 


CALL 

makeDrvCmd 

/makes read command 

OEOO! 

B4 

01 


MOV 

AHi 1 

, drive send/recv cotrsmand 

0E02! 

BE 

BB05 


LEA 

SI. drvCmd 

/data to send to drive 

0E05! 
GEOS! 

B9 

04 00 


MOV 

CX, 4 

/length to send to drive 

0E08! 

EF 



LEA 

DX, buffer 

;where to put result of read 

OEOB ! 

BA 

00 02 


MOV 

DX/ ssctSiie 

/read one sec tor 

OEOE! 
OEOE! 
0E11 ! 

AO 

A305 


MOV 

AL, serverHost 

, server to use 

OEU ! 

B3 

00 


MOV 

EL, 0 

/wait till server answers 

OE13! 
0E1 5! 

B7 

FF 


MOV 

3 H » 

, retry until server answers 

0E15! 
0E19! 

FF 

IE D703 


CALLL 

< r omIo ) 


OE 19! 

AS 

SO 


TEST 

AL, SON 

, any errors? 

0E1B ! 

75** 


JNZ 

*05 

; yes 

0E1D! 

32 

CO 


XOR 

AL. AL 

; if no errors force retcode to 

0E1F! 




*05 



0E1F! 

A2 

B805 


MOV 

ioRetCode/AL 


0E22! 

89 

OE BF05 


MOV 

retLen, CX 


0E26! 
0E26! 

SO 

3E A205 

00 

crips i n 

dots/ dotOo 


0E2B ! 

75** 


vJNt 

*10 


0E2D! 
0E2D! 

B4 

OE 


MOV 

AH/ 14. 

;write byte i/o call 

0E2F! 

BO 

2E 


MOV 

AL, 2EH 

i print a dot 

0E31 ! 

BB 

00 00 


MOV 

BX, 0 


0E34 ! 

CD 

10 


I NT 

10H 


0E36 < 




*10 



0E36! 

SO 

3E BS05 

00 

CMP3IM 

ioRetCode, 0 

i was all ok 

0E3B ! 

74** 


■JE 

*20 


0E3D! 

so 

3£ BAGS 

00 

CMPBIM 

err Ok, 0 

,are errors ok 

0E42! 

75** 


ONE 

*20 

i yes 

0E44! 
0E44! 

ES 

E0F7 


CALL 

horse 


0E4 7! 

BE 

0103 


LEA 

SI , readErrMsg 


0E4A! 

ES 

04F8 


CALL 

printStr 



0E4DI *15 

0E4D * EBFE JMP *15 


; and hang 



f 

I 

€ 

€ 

f 

I 
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I 
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i 

i 

c 

€ 

( 
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4 

m 


Page 


0E4F! 
0E4F! 
0E52S 
0E53! 
GE53 ' 
Oh.53 I 
0E53 ‘ 
0E53! 
0E531 
0E53 I 
0E53! 
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C3 
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•a## 


OE68 
QE68I 
0E6SJ 
0E68 I 
0E6S! 
0E68 I 
0E68 
0E6B ! 
0E6B ! 
OE&E l 
0E71 « 
0E74! 
OE76 l 
0E76! 
0E79 
0E7B i 
0E7E .* 
OE7E \ 
0E81 l 
0E84 i 
0E84 l 
0ES7 f 
0E8A! 
0E8A t 
0E8D! 
0E90 i 
0E93 > 
0E95 ,* 
OE95! 
0E98 i 
0E99 
0E9B ! 
0E9B < 
OEAOf 
0EA6 


E8 9EF7 

8D 77 OA 
BF BOOS 
B9 04 00 
F3 A4 

8A 47 IS 
32 E4 
ES 9AFA 

B8 02 00 
E8 94FA 

BA 04 00 
BF ## 

ES 6DFF 
BE #### 

B9 00 02 
F3 A4 

ES 9EFA 
4A 

75EF 

C6 06 B90S 01 
81 3E **•*#• FF 00 
72*# 


$20 


CALL 

RET 


restRegs 


.-restore registers 


; *############ a######## **-•»« >•*****•»* a a-*#########-*##########*##*###*#* 

BOOT - call the correct boot procedure depending on the entry 
in the NETWORK USER table 

; ***»*####**##*##»*#****•##*******##******»***#******#»**#****#■***#•* 
boot 


0E53; 

83 3E A004 li 


CMP 

nuRec+nuOpSy s 

0E58! 

75*# 


JNE 

*10 

0E5A! 

E9 #### 


JMP 

ucsdSoot 

0E5D i 


*10 



OESDi 

83 3E AGO4 04 


CMP 

nuRec+nuOpSys 

0E62! 

75** 


JNE 

*20 

0E&4 I 

E9 *#*# 


JMP 

msDosBoot 

0E67J 


*20 



0E67! 

€3 


REI 



;**#######*####•*#####*#•.*■*# a#*#*###**####**#*##**#*##***#*##*****##*# 

) 

i READ_DIR — reads a UCSD dir into var dirBuffer 

; BX points to drive volume record 

/ 

i ******■#•*•» *»*•** *****-x ** ***************************************** 

readDir 


REP 


*10 


CALL 

saveReg s 


LEA 

LEA 

MOV 

M0V3B 

SI. (BX+dvSta rt31k) 

DI. block 

CX.addLen 

.add of beginning of volume 

.move add to parm for read 

MOV 

X'OR 

CALL 

A! , (EX+dvVolOff> 

AH. AH 
addToBloc k 

<offset to start of userLen 

MOV 

CALL 

AX. 2 

addToBlock 

;offset to directory 

MOV 

LEA 

DX,ucsdDirBlocks 

DI.dirBuffer 

;# of blocks in directory 
.where to read directory 

CALL 

LEA 

MOV 

MQV3B 

readB I oc k 

SI.buffer 

CX»sectSize 

.read one block of directory 
i add of block read 
inumber of bytes to move 
imove block to directory buff 

CALL 

DEC 

JNZ 

nextBlock 

DX 

*10 

.to next block in directory 
;any more block to read 
» yes 

M0V3IM 

CMP 

JB 

dirlsFlipped,false 
dirBuffer+ucsdLastBlk. 
*20 

OFFH is the directory flipped? 

i NO 
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« 
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« 


€ 

€ 

f 

f 

f 

€ 

f 

I 

t 

f 

I 

■1 

I 

r 

t 

t 

€ 

f 

f 


0EA81 ES E4F9 
OEAB1 C6 06 B905 00 
GEB01 

OEBO! E8 65F7 

GEB31 C3 

0EB41 

0EB4 1 

0EB4 l 

0EB4 i 

0EB4 ! 

0EB4 1 
0EB4! 

0EB4 1 
0EB4 1 
0EB41 
0EB4! 

0EB4 1 
GEB41 

0EB41 E8 S2F7 
0EB7I 
0E871 57 
0ES8: 53 
0EB9! 56 
0EBA1 

OEBA! 8B 16 **** 
OEBE! BB **** 

0EC1 1 
OEC1! 42 
0EC2! E9 **** 

OEC 5! 

OEC 5 f 8D 7F 06 
OEC8! 5E 
OEC91 56 
OECA! 8A 4C 00 
OECD! FE Cl 
OECFI 32 ED 
0ED11 F3 A6 
0ED3! 74** 

0ED5 1 

0ED51 83 C3 1A 
0ED8! 

0EDS1 4A 
0ED9 J 75EA 
OEDB 1 
OEDB1 5E 
OEDC1 5B 
OEDD! 5F 
CEDE! E8 37F7 
0EF11 F9 
0EE2S C3 
0EE3 J 
0EE3 1 
0EE3 1 
0EE31 

0EE31 8B D3 


CALL flipDir ;fix directory 

MQVBIrl d ir IsFlipped. true 

$20 

CALL restRegs 

RET 


; ***********************<******************************************* 


; R£AD_UCSD_FIL£ — reads a UCSD file into memory 
; SI points to file name 

i BX points to drive volume record 

; DI points to area for file to be loaded 

; if carry set then error 

; directory assumed to be in dirBuffer 

; returns with number of blocks read in DX 

i 

i #-S-a-*-?!"**-* ■»•*■»• ■&•»*• •»•»******■$*••<**•»■*•#• •Sf-SHJ-S-*********************************** 

readUcsdFile 

CALL saveRegs 

PUSH DI 

PUSH EX 

PUSH SI 


MOV DX, d irBuf f er + ucsdNumFi les 

LEA BX,- dirBuffer+ucsdDirSize ; start at entry one 


$30 


INC DX 

UMP $40 


LEA 

POP 

PUSH 

MOV 

INC 

XOR 

REP2 CMPSB 

■J 1 


DI, ( BX+ucsdName> 

SI 

SI 

CL,(SI+O) 

CL 

CH.- CH 
readUOl 


;check for zero files 


i name in directory 
» get pointer to name 
i put back on stack 
«length of name 
i must compare length also 

; does this entry match 
; yes 


ADD BX, ucsdDirSize >point to next entry 

$40 

DEC DX »any more left? 

JNZ $30 


POP SI i take off stack 

POP BX 

POP DI 

CAL L restRegs 

STC ;set error return 

RET 

readUOl 

i we have found the entry for the file/ we now prepare 
i to read it into memory 

MOV 


C 

« 

I 
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i 

€ 

€ 

t 


i 


« 


DX, BX 


isave dir entry pointer in DX 
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*** CGMSTE 
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•s-s-a- 

0EE5! 

5E 




POP 

SI 

;trash file name off stack 

0EE6 l 

5E 




POP 

BX 

; get pointer to dv Rec 

0EE7S 

8D 

77 OA 



LEA 

SI. (SX+dvStartBlk ) 


OEEA! 

BF 

BOO 5 



LEA 

DI. block 


OEED S 

E9 

04 00 



MOV 

CX; addLen 


OEFO! 

F3 

A4 


REP 

M0V3B 


; move add to block var 

0EF2< 








0EF2 f 

32 

E4 



XQR 

AH; AH 


0EF4; 

8A 

47 15 



MOV 

At, (BX+dvVolOff > 


0EF7 i 

E8 

1EFA 



CALL 

ad dToBlock 

;add in volume offset 

OEFA i 








OEf A! 

SB 

DA 



MOV 

EX; DX 

/restore pointer to file entry 

OEFC i 

8E 

47 GO 



MOV 

AX; (SX+ucsdlstBlk ) 

/ 1st block of file 

OEFF i 

50 




PUSH 

AX 

; save it 

QFOQl 

E8 

15FA 



CALL 

addToBloefc 

; add into drive address 

0F03' 

58 




POP 

A X 

; restore it 

0F04! 








0F04! 

SB 

57 02 



MOV 

DX; (EX+ucsdlastBlk) 

;calc number of blocks 

0F07 ‘ 








GFG7! 

2B 

DO 



SUE 

DX; AX 

; DX = number of blocks 

0F091 

89 

18 8205 



MOV 

holdNumRead, DX 

i save number of blocks 

OFQD 1 








GFOD 

5F 




POP 

DI 

inhere to put file 

GFOE1 




$30 




OFOE1 

E8 

E9FE 



CALL 

rsadEloc k 


OF 1 1 ! 

BE 




LEA 

SI; buffet' 


OF 1 4 <‘ 

B9 

00 02 



MOV 

CX, sectSize 


OF 17 « 

F3 

A 4 


REP 

MOVSB 



OF 1 9 








OF 19! 

E8 

1AFA 



CAI. L 

nesstBlock 


OF 1C i 

4A 




DEC 

DX 

; any more blocks to read 

OF 1D ! 

75EF 



JNZ 

$30 

; yes 

OF IF ! 








OF IF 1 

E8 

F6F8 



CALL 

restRegs 


0F22; 

SB 

18 6205 



MOV 

DX, holdNumRaad 


0F26 1 

F8 




CLC 


: set no error 

OF27! 

C3 




RET 



0F28I 








0F28! 





s s* 


0F28I 




/ 




OF28 ‘ 




; UCSD_BOOT — 

boots up 

the UCSD 4. 0 P-system 


0F28! 




1 




0F28 f 






0F28 f 




uc sdBoot 




0F28 i 

BE 

EC 04 



LEA 

BX, dvStRec 

; for read directory routine 

0F2B .* 

ES 

3AFF 



CALL 

readDir 


0F2E < 








0F2E 

BE 

4403 



LEA 

SI, drvrFileName 

; address of attached driver 

0F31 .* 

BB 

EC 04 



LEA 

BX, dvBtRec 


0F34! 

BF 

00 05 



MOV 

DI , drvrAdd 

; where to load driver 

0F37 ‘ 

E8 

7AFF 



CALL 

readUCSDf He 

; load in driver 

0F3A! 

73** 



JNC 

uc sdBtOO 

; went ok 

0F3C : 








0F3C 

BE 

1902 



LEA 

SI, noDrvrMsg 

; no driver file message 

0F3F! 

E8 

AAF7 



CAI L 

printAndWait 



I 
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f 
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f 
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OF42! 

C3 


RET 


0F43 1 



uc sdBtOO 


0F43 i 

52 


PUSH DX 

;save # blocks loaded 

0F44 i 





0F44 ! 

BE 

00 05 

NOV SI, drvrAdd 


0F47! 

03 

74 04 

ADD SIj (SI+04) 

;SI = address of interupt routine 

0F4A ‘ 

BF 

CO 03 

MOV DI,4*0FQH 

;store at interrupt FOH 

0F4D 

AD 


L0D3W 


0F4E! 

AB 


STOSW 


0F4F ! 

BS 

50 00 

MOV AX, drvrAdd/1 OH 

i segment address 

0F52 1 

AB 


STGSW 

;interrupt vector is nou fixed 

OF 53: 





0F53 S 

BE 

00 05 

MOV SI,drvrAdd 


0F56! 

89 

36 3905 

MOV interpAdd,SI 


0F5A ; 





0F5A! 

SB 

44 02 

MOV AX, (SI+02) 

;init entry point and interp load 

0F5D ! 

01 

06 3905 

ADD interpAdd,AX 


0F61 1 

A3 

3B05 

MOV drvrInitAdd,AX 


0F64 : 





0F64! 

ES 

C0F6 

CALI. ho re 


0F67! 

FF 

IE 3B05 

CALLL (drvrInitAdd) 

i initalize the driver 

GF6B I 





0F6B ! 

BE 

2403 

LEA St,uc sdInterpName 

;file name to load 

0F6E! 

BB 

EC04 

LEA BX,dvBtRec 

i volume record 

0F71 : 

SB 

3E 3905 

MOV DI,interpAdd 

; ushere to load it 

0F75 i 

E8 

30 FF 

CALL readUCSDflie 

;read it 

QF78 1 

5A 


POP DX 

i number blocks driver read 

0F79 * 

73** 

UNO ucsdStOl 

;everything went ok 

OF7B ! 





0F7B 1 

BE 

FOOi 

LEA SI,noInterpMsg 

;error message for user 

0F7E! 

E8 

6BF7 

CAL! p r i ntAndWa i t 


OFS1 ! 

03 


RET 


0F82 1 



ucsdStOl 


0F82 i 

E8 


CALL uc sdMount 

; load mount table 

0F85 ‘ 

73** 

JNB uc 5 dBt02 

; went ok 

0F87 i 

BE 

8603 

LEA SI,badMntMsg 

, bad mount message 

0F8A ! 

E8 

5FF7 

CALL printAndWait 


OFSD! 

03 


RET 


0F8E i 



ucsdBt02 


0F8E J 



i the interperter is nou loaded into 

memory 

OFSE ! 



» we must nou; read the boot parameter 

file this contains the stack 

OFSE! 



>and parameters need for in i t i 1ization by pascal it is maintained 

0F8E < 



; by the NCI turnkey program 


0F8E l 





OFSE ! 

BE 

3403 

LEA SI,bootParmFile 

■, address of file name 

0F91 ! 

BB 

1805 

LEA BX,hold 5dvRec 

;unit 4 drive volume record 

OF 9 4 

BF 

•a#** 

LEA DI,b ootData 

; where to put it 

0F"97 ! 

AO 

3805 

MOV AL,hold5drive 


0F9A l 

A2 

AF05 

MOV drive,AL 


0F9D 1 

E8 

CSFE 

CALL readDir 


OFAQf 





OF AO! 

80 

3E B905 00 

CMPBIM dirlsFlipped, true 


OFA5S 

75** 

XL $05 

/will not booted with flipped dir 

0FA7! 





0FA7 < 

E8 

7DF6 

CALL home 
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# # # 


< 


c 

c 

< 

I 

I 

t 

f 

f: 

€ 

f 

f 

r 

c 

c 

r 

€ 

c 

« 

# 


OFAA! 

BE 

8802 


LEA 

SI /badUnttSMsg 


OFAD < ! 

ES 

Of** 1 £T “7 

our / 


CALL 

printAndWait 


OF BO! 

C3 



RET 



OFS1 ! 



$0 S 




OFB1 ! 

ES 

OOFF 


CALL 

readUcsdFi1e 


0FE4 l 

73** 


ft* i *** 

W. *iU 

$10 

;read it ok 

OFB 6! 







0FE6 ! 

BE 

E302 


LEA 

SI/noBootParmMsg 


0FE9S 

ES 

30F7 


CALL 

pr intAndWait 


OFBC { 

C3 



RET 



OFBD ! 




; tue must in i t the stack and 

registers and take off 

OFBD! 



*10 




OFBD: 

C7 

06 **** 05 00 


MOV 

bootUnit/ 5 

/force boot from unit 5 

0FC3! 







0FC3! 

ES 



CALL 

uc sdMemCh sck 

;stack manip stuff 

QFC6! 

73** 


JNC 

$20 


OFCS ! 

03 



RET 


;error return 

0FC9! 



$20 




0FC9! 







0FC9: 

BE 

1D03 


LEA 

SI /crLfMsg 


OFCC ! 

ES 

82F6 


CALL 

printStr 


OFCFI 







OFCF! 

BE 



LEA 

SI/ boot7P80 

;move 64 words at 7F80 to 

0FD2; 

BF 

10 02 


MOV 

DI- 21OH 

, 21 OH 

OP'D 5 ! 

B9 

40 00 


MOV 

CX/ 0040H 


0FD3 S 

F3 

AS 

REP 

MOVSW 



OFDA! 







OFDA ‘ 

BE 

•s-a-s--* 


LEA 

SI/ bootvCOC 

,floppy disk paramters 

OFDD i 

BF 

00 02 


MOV 

DI, 200H 

;store at 200H 

OFEO! 

B9 

OB 00 


MOV 

CX, OBH 

; 11 bytes 

0FE3 ! 

F3 

A4 

REP 

M0VS8 


,move them 

OFE5! 







OFE5! 

BF 

78 00 


MOV 

DI/ lEH-a-4 

i vector address 

OFES ! 

B8 

00 02 


MOV 

AX,20OH 


OFEB J 

AB 



STOSW 



OFEC ! 

B8 

00 00 


MOV 

AX, 0 


OFEF! 

AB 



STOSW 



OFFO! 







OFFO! 

32 

E4 


XOR 

AH, AH 


OFFS! 

CD 

13 


I NT 

13H 

;initalize the diskette system 

OFF 4 ! 







0FF4 

FA 



CLI 


/disable interrupts 

OFFS 







OFFS! 

SB 

IE 3905 


MOV 

3X,interpAdd 

; set stack at interp base 

0FF9! 







0FF9! 

BC 

•St-3-■3"* 


LEA 

SP,bootUnit 

/this is in boot parm file 

OFFC 1 

2B 

E3 


SUB 

SP, BX 

/•adjust for different seg base 

OFFE! 







OFFE i 

B1 

04 


MOV 

CL, 4 

;divide interp add by 16. 

IOOO ! 

D3 

EB 


SHR 

BX, CL 


1002! 







1002! 

SE 

D3 


MOV 

SS, BX 

/this is interperters base 

1004! 

FB 



STI 


;enable interrupts 

1005! 







1005! 

SE 

DB 


MOV 

DS, BX 
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1007 i 
1009! 
1009! 
100A! 
100 A! 
100C ! 
1000 ! 
100E! 
1 OOF! 
1010! 
1010 ! 
1010! 
1010 ! 
1010 ! 
1010 ! 
1010 ! 
1010! 
1010! 
1010! 
1010! 
1012! 
1012! 
1015! 
1018! 
101A ! 
101E! 
1021 ! 
1021 ! 
1021 ! 
1025! 
1027! 
1029! 
1029! 
102C ! 
102E! 
1030! 
1032! 
1032! 
1036! 
1038! 
103 A! 
103A! 
103E! 
1044 ! 
1045! 
1046! 
1046! 
1046! 
1046! 
1046 ! 
1046! 
1046! 
1046! 
1046! 
1046! 


8E c; 


ES, BX 


SB 07 
50 


CD 12 

3D 40 OO 
BB FE FF 

75-3-4J- 

2B IE 3905 
E9 **** 


SB 16 
B1 04 
D3 E2 

B9 OO 08 
3S D1 
77*# 

SB CA 

2B OE 3905 
73** 

03 D9 

89 IE **** 

C7 06 **** FF FF 


PUSH 


MOV 

PUSH 

RETL 


AX, (EX) 
AX 


i 1st byte of interp contain 
;entry point 
; a x = entry point 
;onto stack 

ifaoot!! round about way 


} ************************* s •*****#"*#"?HHt'*****************#'*****-JHHHHt****** 

i 

; UCSD_fiEM_CHECK — this code is ripped off straight from the NCI boot 
; for the p~system, some of it i dont understand what they are 

; are doing. This was from a disassembly 

£ 

; ***-«****##**’*#’*# A **«•**•* .l*********************************************** 

ucsdMemChec k 


AX, 64. 

BX, -2 
$10 

BX, interpAd d 
$20 


DX,boot7F70 
CL, 4 
DX, CL 

CX, 0800H 
DX, CX 
$15 
C X, D X 

CX,interpAdd 
$20 
BX, CX 

boot7F6E, BX 
boot7F74, OFFFFH 


determine memory size 


i h ighest address 
i not exactly 64k 

;subtrace address of interpsrter 


iwe have over 64k 
) 800-interp address 


i save highest address interp re lai 


81 09 


t 

i UCSDJICUNT — finds the mount table in the interperter just loaded into memory 
; and patches in the info for the boot volume 

S 

ucsdfioun t 

MOV CLf9 » convert num bIks to bytes 


i 



I 


Pace 


CIIBOG 


CONSTELLATION 


BOOT FOR THE IBM/PC 


€ 

I 

€ 

€ 

€ 

f 

r 

i 

i 

t 

c 

i 

f 

f 

i 

« 

f 

< 

i 


1048; 

D3 

E2 


SHL 

DX, CL 

104 A.' 

B8 

50 00 


MOV 

AX,drvrAdd/lOM 

104D i 

8E 

CO 


MOV 

ES, AX 

104F! 

BB 

00 00 


MOV 

BX, 0 

10521 



$10 



10521 

BE 

7103 


LEA 

SI,merMark 

10551 

8B 

FB 


MOV 

DI, BX 

10571 

B9 

OF 00 


MOV 

CX,memMarkLen 

105A1 

F3 

A6 

REPZ 

C HP SB 


1050 1 

74## 


JZ 

$20 

105E1 

43 



INC 

BX 

105F1 

4A 



DEC 

DX 

1060! 

75F0 


JNZ 

$10 

10621 






10621 

sc 

D8 


MOV 

AX, DS 

1064 1 

8E 

CO 


MOV 

ES, AX 

1066 1 






1066! 

F9 



STC 


10671 

C3 



RET 


i 068 1 



$20 



1068! 

83 

C3 OF 


ADD 

BX,memMar kLen 

106B 1 

89 

IE 1405 


MOV 

zrmtTab Ad d,BX 

106F 1 

8C 

C3 


MOV 

BX, ES 

1071 1 

89 

IE 1605 


MOV 

mntTabSeg,BX 

1075! 






1075! 

8C 

D8 


MOV 

AX, DS 

1077! 

8E 

CO 


MOV 

ES, AX 

1079! 






1079! 

BO 

04 


MOV 

AL, 4 

I07B 1 

ES 



CALL 

ucsdMntFind 

107ES 






107E 1 

BO 

05 


MOV 

AL, 5 

1080! 

ES 



CALL 

ucsdMntFind 

1083! 

73#* 


JNC 

$30 

1085! 






1085! 

BE 

7or<o 


LfcA 

SI,noUnitSmsg 

1088! 

ES 

61F6 


CALL 

printAndWait 

108B ! 

58 



POP 

AX 

lose: 

C3 



RET 


108D! 



$30 



1 OSD! 

BE 

CC04 


LEA 

SI, dvRec 

1090! 

BF 

1805 


LEA 

DI,holdSdvRec 

1093! 

B9 

20 00 


MOV 

CX, dvRecSi 2 e 

1096! 

F3 

A 4 

REP 

MOVSB 


1098! 






1098! 

AO 

AF05 


MOV 

AL,drive 

109B ! 

A2 

3805 


MOV 

ho 1d 5drive,AL 

109E! 






109E! 

BO 

09 


MOV 

AL, 9 

10A0! 

E8 

•a-a-3-3- 


CALL 

ucsdMntFind 

10 A3! 






10A3! 

BO 

OA 


MOV 

AL, 10. 

10A5! 

E8 

•3 3-•a-# 


CALL 

ucsdMntFind 

10A8! 






10A8 ‘ 

BO 

OB 


MOV 

AL, 11. 


< 


< 


•S-3-3 

z DX = nuiii bytes to search 

;search at interp base 
;start looking here 

/searching for this in memory 
z we are looking here 

zhave we found it 
< yes 

/look again 
zrestore ES reg 

/set error return 

;found Mnt tb1 
;go past marker 
;save addresses 


zrestore ES 


/find and mount unit 4 

it u « u es 

t w 

/unit five was found 
/must be mounted 
; return to outermost level 

z save unit 9 dvRec 


. II H » II Q 


I* I* *1 II •§ 

-w” 


« 

I 

€ 

€ 

€ 

« 

f 

f 

€ 

€ 

< 

i 

f 

< 

« 

€ 

< 

€ 

f 

m 

i 
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10 A A ! 

ES 



CALL 

ucsdMntFind ; " " " " 11 

10AD! 






10AD! 

BO 

OC 


NOv' 

AL, 12. 

10AFS 

ES 



CALL 

ucsdMntFind / " " " " 12 

10B2 i 






10B2 : 

SB 

3E 1405 


NOV 

DX, mntTabAdd 

10B6.* 

06 



PUSH 

ES 

1 OB 7 I 

SE 

06 1605 


NOV 

ES,- fr.ntTafaSeg 

10BB ; 






10BB } 

BE 

7 AO 5 


LEA 

SI,cryptName ; put user name in mount table 

1OBE J 

B9 

OA 00 


MOV 

CX, nameLen 

ioc i; 

F3 

A 4 

REP 

MGVSB 


1OC 3! 






IOC 3! 

BE 

8405 


LEA 

SI, cryptPassu/ord ; put passu/ord in mount table 

1 OC 6 I 

B9 

08 GO 


NOV 

CX, passLen 

10C9! 

F3 

A 4 

REP 

NOVSB 


10CB 1 






10CB! 

AO 

A 30 5 


NOV 

AL,serverHost /put disk server number in tab 

10CE! 

AA 



STOSB 


iocf; 






10CF 1 

07 



POP 

ES /restore ES 

lODOi 

F8 



CLC 


10D1 l 

C3 



RET 


10D2! 






10D2! 




10D2 i 



l. 



10D2I 



} UCSD. 

_MNT_FIND 

—• finds and mounts the UCSD unit in AL 

10D2! 






10D2S 




1 0D2! 



ucsdfintFind 


10D2 f 

BB 



LEA 

BX,mntDrvTab 

10D5! 

89 

IE 1005 


MOV 

mntDrvPoint, BX 

10D91 






10D91 

BB 



LEA 

BX,mntDvTab 

IODC ! 

89 

IE 0C05 


MOV 

mntDvPoir.t, EX 

iOEOi 






10E0! 

BB 



LEA 

BX, mntDaTab 

10E3» 






10E3' 

SB 

OE 1205 


MOV 

CX, mntCount 

10E7 ' 



$10 



10E7! 

38 

47 06 


CMP 

<BX+daMntInfo>,AL /is this the correct unit 

IOEA1 

74-a"* 


JE 

$20 

10ECI 






10EC ! 

FF 

06 1005 


INC 

mntDrvPoint 

lOFOl 

S3 

06 0C05 20 


ADD 

mntDvPoint, dvRecSiie 

10F5 * 

S3 

C3 08 


ADD 

BX, daRecSi z e 

10FSJ 

E2ED 


LOOP 

$10 ; loop until searched all 

I OF A l 

E9 

a-*## 


JMP 

$30 /didnt find it 

1QFD! 



$20 



lOFDf 

SB 

F3 


MOV 

SI, 3X 

i OFF i 

BF 

A404 


LEA 

DI,daRec 

1102.' 

B9 

08 00 


MOV 

CX, daRecSi ze 

11051 

F3 

A 4 

REP 

NOVSB 


11071 






11071 

SB 

36 0C05 


MOV 

SI,mntDvPo int 



4 

< 

4 

f 


€ 

I 

€ 


f 
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11GB! 

BF CC04 


LEA 

DI, dvRec 

HOE! 

B9 20 00 


NOV 

C X i d vR e c S i 2 e 

Ill! 5 

F3 A4 

REP 

MOVSB 


1113; 





1113! 

SB IE 1005 


NOV 

BX, mntDrvPoint 

1117! 

8 A 07 


NOV 

AL, <BX) 

1119! 

A2 AF05 


NOV 

drive/AL 

111C 2 





111C! 

ES •a-### 


CALL 

ucsdMntOna 

11 IF! 

FS 


CLC 


1120! 

73-S-* 


JNC 

*40 

1122! 


*30 



1122! 

06 


PUSH 

ES 

1123! 

SB 3E 1405 


MOV 

DI»mntTabAdd 

1127! 

SE 06 1605 


NOV 

ES/mntTabSeg 

112B ! 

33 CO 


XOR 

AX, AX 

112D! 

B9 08 00 


MOV 

CX, mntRecSi ze 

1130! 

F3 A A 

REP 

STOSB 


1132! 

07 


POP 

£b 

1133! 

F9 


STC 


1134! 


*40 



1134! 

9C 


PUSHF 


1135! 

83 06 1405 08 


ADD 

mntTabAdd/mntRecSize 

113A! 

90 


PQPF 


113B ! 

C3 


RE! 



113C I 

113C! 
113C ! 
1 ISC ! 
113C ! 
113C 2 
113C 2 
113C J 


;set unit found 
;alyay s 

; zero entry nothing is mounted 


;set mount not found 


;set pointer to next entry 


; UCSD_MNTjDNE — creates one UCSD mount entry at mntTabSeg:(mntTabAdd) 

i -X^**#**#****** >*******-i( < **#*#***•#»*»#**•**#*#**#•#**#*##**»*****•*•****'»'•*'•**••*••* 

ucsdMntOne 


-If 

i l O w { 

ES 

CAF4 

CALL 

saveRegs 

■4 

113F! 

06 



PUSH 

ES 


1140! 

SB 

IE 

1405 

MOV 

BX,mntTabAdd 

f • 

1144! 

A1 

1605 

MOV 

AX,mntTabSeg 

1 

1147! 

8E 

CO 


MOV 

ES, AX 

f 

1149! 

1149! 

8A 

26 

AF05 

MOV 

AH,drive 

■I 

U4D! 

B1 

04 


MOV 

UL, 

if 

114F! 
1151 ! 

D2 

E4 


SHL 

AH, CL 

I 

1151 ! 

8A 

2E 

DF04 

MOV 

CH,dvRe c+dvWriteable 

i 

1155! 

1158! 

80 

E5 

OF 

AND 

CH, OFH 

m 

1158! 

F6 

06 

AB04 10 

TESTS IM 

daRec+daReadBoot, daRoFlag 


11 5D ! 

74** 


JZ 

*10 

€ 

115F! 

32 

ED 


XOR 

CH, CH 

1161 ! 




*10 


m- 

1161 ! 
1163! 

OA 

E5 


OR 

AH, CH 

w 

1163! 

1167! 

26 

88 

67 00 

MOV 

ES: (SX+mntDrvWp), AH 

# 

1167! 

SA 

26 

A305 

MOV 

AN,serverHost 


ibuild mount table 

;write protect stuff 

;is it read only 
i no 

;set read only 
;or into drive 
;move into mount table 


f 

f 

t 

€ 

< 

€ 

I 

f 

C 

€ 

C 

4 

f 

C 

I 

I 

i 

€ 

< 

€ 

t 

i 


; put in disk server add 




I 


f 

< 

€ 

« 

f 

I 

r 

c 

t 

i 

c 

T 

C 

f 

C 

f 

€ 

« 

< 

« 

f 
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i 16B 

26 88 67 01 

116F! 
116F1 

Ai D804 

11721 

26 89 47 04 

1176 ! 

Al D604 

11791 

26 89 47 02 

117D ! 
117 D .* 

Al DC04 

1180! 

86 EO 

1182! 

SB OE D804 

1186! 

86 £S 

1 188! 
1188! 

2B Cl 

118 A ' 

40 

118B ! 

86 EO 

118D! 

26 89 47 06 

1191 ! 
1191 ! 

07 

1192! 

E8 S3F4 

1195! 

U 

1196! 
1196! 

1196! 
1196! 
1196! 
1196! 

1196 ! 

1196 ! 

1196! 

EB EC04 

1199! 

E8 CCFC 

119C ! 

119C ! 

BB EC04 

119F! 

BE 5403 

11A2! 

BF 00 06 

11A5! 

E8 OCFD 

11A8J 

73## 

HAAS 

HAAS 

BE 3DO2 

HAD! 

E8 3CF5 

HBO! 

C3 

11B1 ! 
11B1 ! 

FF 36 AF05 

1 IBS! 

E8 #### 

1 IBS! 

1 IBS' 

58 

11B9! 

A2 AF05 

11BC ! 

11BC ! 

73## 

11BE! 

BE B203 

11C1 ! 

E8 28F5 

11C4S 

C3 

11C5! 

11C5* 

BB EC04 

11C8! 

BE 6303 

HCB! 

BF OO 06 


File: 


### CONSTELLATION II 2QOT FOR THE IBM/PC 


### 


MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

XCHG 

MOV 

XCHG 

SUB 

INC 

XCHG 

MOV 

POP 

CALL 

RET 


ES: <SX+mntDsfcSrvr), AH 

AX. dvRec + dvStartE 1 k-i-2 
ES: CSX+mntBlocfc+2>»AX 
AX. dvRec+dvStartBIk 
ES:(BX+nntEIock),AX 

AX. d vR ec + d vEn d BI k +2 
AH. AL 

CX,dvRec+dvStartBIfc+2 
CH. cl 

AX. L X 
AX 

AH# AL 

ES: <SX+mntNumBIks).AX 
ES 

restRegs 


;put volume add in mount table 


i put num blocks in mount table 


. INCLUDE C0NSTS00T2. TEXT 


;MSDOS BOOT STUFF 


■, ##***# *#•*#*#•# *##••» *»*#*#**«*#*****#*#**#*****«*•**■#•*•#••»»#•*»#•*#•****«•«•#■* 


MS DOS BOOT 


ioats up the IBM/PC MS-DOS operating system 


€ 

I 

< 

€ 

I 

i 

€ 

€ 

€ 

€ 


msDosBoot 


msDosDt1 


msDosSt2 


LEA 

BX<dvBtRec 

; for reading directory 


CALL 

readDir 



LEA 

EX. dvBtRec 


f 

LEA 

SI<msDosBiasName 

i fi1e to 1oad 


MOV 

DI.biasAdd 


m 

CALL 

readUCSD-Fi Is 

.read it into memory 

i 

jr-«c 

nsDosBt1 

/everything went ok 


LEA 

SIi noBiosMsg 

;error message for user 

i 

CALL 

RET 

printAndWait 


€ 

PUSH 

dr i ve 



CALL 

msDosMount 

; load mount table 

« 

POP 

AX 

;restore drive 


MOV 

drive.AL 


4 

JNC 

msDosBt2 

;went ok 


LEA 

SI.badBiosMsg 

.bad mount message 

€ 

CALL 

pr i ntAndWait 

i print it 

RET 


i and hang 


LEA 

3X, dvBtRec 


« 

LEA 

SI. msDosName 



MOV 

DI. biosAdd 


m 


« 



Fags 


45 C11 BOO! 


Fils- CQNSTBG0T2. TE XI 


1 ICES 

03 3E 41 OS¬ 


ABB 

BI.biosLen 

11D2 i 

ES BFFC 


CALL 

readUCSDfile 

1105! 

73*# 


JNC 

nsDosBtS 

11D7! 





1ID7! 

BE 5802 


LEA 

SI.noDosMsg 

i 1 BA! 

E8 OFFS 


C ALL 

printAndWait 

11BD i 

C3 


RET 


11 be; 





11BE! 


msDosBtS 



11BE ! 



; the 

bios is now loaded 

11 BE! 



i ue 

must init the stac 

11BE5 





11 BE! 

E8 46F4 


CALL 

h one 

11E1 5 





11E1 ! 

80 3E 5B05 00 


CfIFEIM aMounted. true 

UE6! 

74** 


JE 

410 

11E8! 

BE €402 


LEA 

SI.putFlopInMsg 

11EB ! 

E8 FEF4 


CALL 

pr iritAndWa i t 

11EE I 

ES 36F4 


CAf. L 

home 

11F1 ! 


410 



11F1 ! 

BB 60 00 


MOV 

EX.biosAdd/lOH 

11F4 5 

8E DB 


MOV 

DS. BX 

11F6: 

SE C3 


MOV 

£b, BX 

11F8! 

EA 0000 6000 


JMPL 

0.biosAdd/lOH 


*** CONSTELLATION II BOOT FOR THE IBM/PC *** 


.load right after bio< 
.read it into memory 
.all ok 


; i s 'A' mounted? 
.•yes 


11FD! 
11FD! 
11FD! 
11FD! 
11FDI 
11FD! 
i 1FD! 
11FD! 


.CS reg for interp 


i go to it 

i **********************■<;'**3********************************************* 

; MSDOS_MOUNT — finds the mount table in the bios just loaded into memory 
I and patches in the info for- mounted volumes 

/ 

; ********** X##########*-* *#x !(#######« ************************************ 
msDosMount 

convert num b1ks to bytes 
DX = num bytes to search 

search at interp base 
start looking here 

searching for this in memory 
we are looking here 

have we found it 
j yes 


.look again 
;restore ES reg 

i set error return 


11FD! 

Bl 09 


MOV 

CL. 9 

1 IFF! 

D3 E2 


SHL 

BX. CL 

1201 < 

B8 60 00 


MOV 

AX.biosAdd/lOH 

1204! 

8E CO 


MOV 

ES. AX 

1206! 

BB 00 00 


MOV 

BX. 0 

1209! 


410 



1209! 

BE 8003 


LEA 

SI, DosMark 

1200 ! 

8B FB 


MOV 

BI. BX 

120E! 

BS 06 00 


MOV 

CX. dosfiar kLen 

1211 ! 

F3 A6 

REP 2 

CMPSB 


1213! 

74** 


JZ 

420 

1215! 

43 


INC 

BX 

1216! 

4 A 


DEC 

DX 

1217! 

75F0 


JNZ 

410 

1219! 





1219! 

8C 08 


MOV 

AX, DS 

121B ! 

8E CO 


MOV 

ES, AX 

1210 ! 





1210! 

F9 


STC 


1 2 1E! 

C3 


RET 


121F! 


420 



121F ! 

SC CO 


MOV 

AX, ES 

1221 ! 

SE DS 


MOV 

DS, AX 


< 

i 

< 

€ 

€ 

I 

€ 

I 

I 

« 

( 

C 

€ 

I 

f 

< 

€ 

i 

< 

< 

i 

i 


; found lint tbl 
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File: 


*** CONSTELLATION 


i 


CONST BOO' 


TEXT 


c 

f 

c 

< 

f 

€ 

I 

« 

* 

f 

f 

t 

I 

r 

< 

< 

€ 

€ 

f 


1223! 

2E 

A3 

3F05 

MOV 

CS:dosSeg > AX 

1227! 

1227! 

83 

C3 

09 

ADD 

EXT dosfiar kLen+3 

122 A! 

813 

F3 


MOV 

SI / BX 

122C ! 

122C ! 
I22C ! 

AD 



LODSW 


122DI 

2E 

A3 

4505 

MOV 

CS: sConfigAdd.- AX 

1231 ! 

SB 

F8 


MOV 

DI/AX 

1233! 

50 



PUSH 

AX 

1234! 

BO 

00 


MOV 

AL / 0 

1236! 

AA 



STOSB 


1237! 

1238! 

58 



POP 

AX 

1238! 

40 



INC 

AX 

1239! 

123D! 

2E 

A3 

4305 

MOV 

CS - c onfigAdd/AX 

12 3D! 

AD 



LODSW 


123E! 

1242! 

2E 

A3 

4705 

MOV 

CS: fPar.vAdd, AX 

1242! 

AD 



LODSW 


1243! 

En# 

A3 

4905 

MOV 

CS: cParmAdd, AX 

1247! 

8E 

F8 


MOV 

DIz AX 

1249! 

4F 



DEC 

r* t 

U 1 

124 A! 

2E 

89 

3E 4BO5 

MOV 

CS: cParmCadd. DI 

124F! 

32 

CO 


XQR 

AL/ AL 

1251 l 

AA 



STOSB 


1252! 

1252! 

AD 



LODSW 


1253! 

2E 

A3 

4D05 

MOV 

CS:vo1Add/ AX 

1 O’S”?' | 

1257! 

AD 



LODSW 


1258! 

125C ! 

2E 

A3 

1405 

MOV 

CS: mntTabAd d. AX 

125C ! 

83 

C6 

06 

ADD 

SI/ 6 

125F! 

AD 



LODSW 


1260! 

1264! 

2E 

A3 

4F05 

MOV 

CS: map Add/ AX 

1264! 

2E 

AO 

7905 

MOV 

AL/CS:userHost 

1268! 

8B 

FE 


MOV 

DI / SI 

126A! 

AA 



STOSB 


126B ! 
126B ! 

46 



INC 

SI 

126C ! 

AD 



LODSW 


126D! 

126F f 

8B 

FS 


MOV 

DI / AX 

126F ! 

83 

C6 

02 

ADD 

SI. 2 

1272! 

AC 



LODSS 


1273! 

86 

EO 


XCHG 

AH. AL 

1275! 

DO 

E4 


SHL 

AH, 1 

1277! 

32 

CO 


XQR 

AL. AL 

1279! 
127D! 

2E 

A3 

4105 

MOV 

CS: biosLer,/ AX 

127D' 

83 

C6 

02 

ADD 

SI. 2 

1280! 

57 



PUSH 

DI 


I 



to disk server byte 



I 


I 


€ 
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Fi 1e: CONSTBOOT2. TEXT 

*** CONSTELLATION 

II BOOT FOR THE IBM/PC *** 

i 

1-281 1 

2E 

AO A305 


MOV 

AL./ CS: serverHost 



12851 

SB 

FE 


MOV 

DI, SI 



12871 

AA 



STOSS 



c 

1288! 
1289 ! 

5F 



POF 

DI 



1289! 

BE 

7 AO 5 


LEA 

SI / cryptName 

;DI aIready set up 

f" 

128C ! 

B9 

OA 00 


MOV 

CX/ nameLen 


m 

128F! 

8C 

C8 


MOV 

AX/ C S 



1291 ! 

8E 

D8 


MOV 

DS.- AX- 

;restore DS 

c 

1293! 

1295! 

F3 

A4 


REP MOVSB 


;move name to interperter 


1295! 

SC 

ce 


MOV 

AX/ CS 


.f 

1297 ! 

8E 

CO 


MOV 

ESz AX 

i restore ES 

Ml 

1299! 
1299! 

33 

CO 


XOR 

AX/ AX 


f 

129B ! 

A3 

5105 


MOV 

1ogUniAX 

i for logical mapping table 


129E! 

A3 

5305 


MOV 

aiountCount/ AX 

;number of drive mounted 


12A1 ! 

A3 

5505 


MOV 

f IopCount/ AX 

;number of floppys mounted 

f 

12A4! 

A3 

5705 


MOV 

mapCountzAX 

/index into config table for map 

1 

12A7! 

A3 

5905 


MOV 

ma yFI op .• AX 

;number of actual floppies 


12AA! 
12AF! 

C6 

06 5B05 

00 

MOVBIM 

aMounfced/true 

/assume a is mounted 

W 

12AF! 

CD 

11 


I NT 

1 1H 

; equipment config call 


12B1 < 

AS 

01 


TEST 

AL» 1 

i any floppies attached? 

fl 

12B3 1 

74-*# 


JZ 

$30 

i no 


12B5! 

DO 

CO 


POL 

AL, 1 

;shift num floppies around 


1 2B7! 

DO 

CO 


POL 

AL/ 1 


€" 

12B9! 

25 

03 00 


AND 

AX/ 3 

; mask out other bits 


12BC ! 

40 



INC 

AX 

/make 1-4 


12BD! 

3D 

01 00 


CMP 

AX/ 1 

i is there just one fBoppy 


12C0 • 

75** 


ONE 

$25 

; no 

C 

12C2! 

40 



INC 

AX 

;if just one physical floppy mount 


12C3! 




$25 


; two so user can copy floppies 

I 

12C3! 

A3 

5905 


MOV 

maxFlop/AX 

i save it 

f 

12C6! 




$30 




12C6! 

FF 

06 5105 


INC 

IogUnit 


f 

12CA I 

83 

3E 5105 

OB 

CMP 

1 o g On i t / 11. 

iare ue all done 

1 

12CF * 

74** 


JE 

$40 

i yes/ have mounted 'a'-'j' 


12D1 i 

E8 

**** 


CALL 

dosMntFind 



12D4 ! 

EBFO 


3MP 

$30 


ML' : 

12D6! 




$40 




12D6! 

F8 



CLC 



« 

12D7! 
12DS! 

C3 



RE! 




12DS! 




i ***************** ***** 4**3-a-*-********************************************* 

€ 

12D8! 
12D8! 




t 

: DQS_MNT_FIND 

—■ finds and mounts the 

DOS unit in logUnit 


12D8! 




t 



i 

12DS! 




:********************** 4*** ********* X************************************* 


12D8' 




dosMntFind 




12D8 5 

BE 



LEA 

8X<mntDrvTab 


< 

12DB ! 
12DF! 

89 

IE 1005 


MOV 

mntDrvPoint/B X 



12DF! 

BB 

* * * * 


LEA 

BX, mntDvTab 



1282 i 

89 

IE QCQS 


MOV 

mntDvPointi BX 



f 


« 

I 

i 

f 

< 

f 

f 

f 

I 

« 

€ 

f 

4 

4 

€ 

4 

I 

€ 

« 

t 

« 
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File: 


C0NSTB0QT2.TEXT 


*** CONSTELLATION II BOOT FOR THE IBM/PC 


- 3 - 


Page - 


12E6 i 








12E6 i 

BB 




LEA 

BX, mntDaTab 


12E9! 








12E9 ! 

SB 

OE 1205 



NOV 

CX, fnntCount 


1 2EB { 




$10 




12ED! 

A1 

5105 



NOV 

AX< logUnit 


12F0! 

38 

47 06 



CMP 

(BX+daMntlnfo) , AL 

,is this the correct unit 

12F3! 

74** 



■JE 

$20 


12F5! 








I2F5! 

FF 

06 1005 



INC 

(nntDrvPoint 


12F9 I 

83 

06 0005 

•'-i yv 

c& U 


ADD 

mntDvPoint, dvRecSize 


12FE! 

83 

C3 OS 



ADD 

BX,daRecSize 


1301 ! 

E2EA 



LOOP 

$10 

;loop until searched all 

1303! 

E9 

**** 



JMP 

$30 

ididnt find it 

1306! 




$20 




1306! 

SB 

F3 



NOV 

SI, S X 


1308! 

BF 

A404 



LEA 

DI, daRec 


130B ! 

B9 

08 00 



NOV 

CX, daRecSize 


130E! 

F3 

A 4 


REP 

MOVSB 



1310! 








1310! 

SB 

36 0005 



MOV 

SI, mntDvPoint 


1314! 

BF 

CC 04 



LFA 

DI, d vR e c 


1317! 

B9 

20 00 



NOV 

CX, dvRecSi ze 


131 A! 

F3 

A 4 


REP 

MOVSB 



1310 1 








1310 ! 

SO 

3E DE04 

03 


CNFBIN 

dvRec+dvVolType, msDosVol 

i is this a msDos volume 

1321 ! 

75** 



JNE 

$30 

i no 

i i 

SB 

IE 1005 



MOV 

BX, mntDrvPoint 


1327! 

SA 

07 



MOV 

AL, CSX) 


1329! 

A2 

AF05 



NOV 

drive,AL 


132C ! 








132C ! 

E8 

***** 



CALL 

dosMntOne 


132F! 

G3 




RET 



1330! 




$30 




1330! 

S3 

3E 5105 

01 


CMP 

logUnit, 1 

i is this drive 'A' 

1335! 

75** 



JNE 

$35 

; NO 

1337! 

06 

06 5B05 

01 


NOVS IN 

aMounted,false 


1330 ! 




$35 




133C ! 

ES 




CALL 

dosMntFloppy 


133F! 

€3 




RET 



1340! 




i ^#^*^^-*^-*****55 

A -*###%*#****#*********************************** 

1340! 




t 




1340! 




i DOS_ 

MNT_FLOPPY 


1340! 




# 




1340! 




} *• * * * * * & # # * * * X * * * rrt**"*-3C ******** ***************************************** 

1340! 




dosMntFloppy 



1340! 

06 




PUSH 

ES 


1341 ! 

SE 

06 3F05 



NOV 

ES, dosSeg 


1345! 

SB 

3E 1405 



MOV 

DI, mntTabAdd 

i get ready to store in DOS 

1349 ! 








1349! 

A1 

5505 



MOV 

AX, f1opCount 

; floppys mounted so far 

134C ! 

3B 

06 5905 



CMP 

AX, maxFlop 

;any left 

1350! 





; JE 

$10 

} no 

1350! 

FE 

CO 



INC 

AL 


1352! 

OC 

40 



OR 

AL, 040H 

; put in r/ui and floppy 



Page ■ 
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19 CII80QT 

Fils: C0NSTB00T2. TEXT 

*** CONSTELLATION II 

BOOT FOR THE IBM/PC *** 

1354! 







1354! 

AA 



STOSB 



1355! 







1355! 

88 

IE 4505 


MOV 

BX,sConfigAdd 

i num of entries in config table 

1359! 

26 

80 07 02 


ADD3IM 

ES:(BX!*2 

;a floppy has two entries 

135D! 







135D ! 

SB 

3E 4305 


MOV 

DI)configAdd 

; next entry in config table 

1361 ! 

A1 

5105 


MOV 

AX) 1 ogUn i t 


1364! 

FE 

CS 


DEC 

AL 

iaccess info is 1 -- x 

1366! 

AA 



STOSB 



1367! 

SA 

D8 


MOV 

BL) AL 

i save it 

1369! 

A1 

4705 


MOV 

AX)fParmAdd 

;address of ss floppy parms 

136C ! 

AB 



STOSW 



136D! 

SB 

CS 


MOV 

CX) AX 

;save it 

136F! 

8A 

C3 


MOV 

AL, BL 

; each floppy has two entries 

1371 ! 

AA* 



STOSB 




SB 

Cl 


MOV 

AX, LX" 


1374! 

05 

OA 00 


ADD 

AX, 10. 

)point to double sided entry 

1377! 

AB 



STOSW 



I J/Q 5 

S3 

06 4305 

06 

ADD 

configAdd# 6 

;point to next entry in table 

137D! 







137D! 

SB 

3E 4F05 


MOV 

DI , mapAdd 


1381 ! 

Ai 

5705 


MOV 

AX. mapCount 

i index into config table for 

1384! 

A A 



STOSB 


i this drive 

1385! 

S3 

06 5705 

02 

ADD 

mapCount, 2 


138 A! 







138AS 

FF 

06 5505 


INC 

f1 opCoun t 

i number of floppys mounted 

138E! 

E9 

*#*•*■ 


JMP 

$20 


1391 ! 




$10 



1391 ! 

BO 

00 


MOV 

AL, 0 

) unmount unit 

1393! 

AA 



STOSB 



1394 ! 




$20 



1394! 

FF 

06 1405 


INC 

mntTabAdd 


1398! 

FF 

06 4F05 


INC 

mapAdd 


139C ! 

07 



POP 

ES 


139D! 

C3 



RE i 



139E! 







139E! 




;####################### ## 3 ###*################################################ 

139 E! 




: 



139E! 




i D0S_MNTJ3N£ — 

- mounts the logical unit 

in logUnit 

1 39E ! 




i‘ 



139E! 




i #########################x 31 ####################X############################# 

139E! 




dosMntGne 



139E! 

06 



PUSH 

ES 


139F ! 

SE 

06 3F05 


MOV 

ES» dosSeg 


13 A3! 







13 A3! 

FF 

06 5305 


INC 

mountCount 

; number of corvus 's mounted 

13A7! 

Al 

5305 


MOV 

AX,mountCount 


13 A A !' 

SA 

IE DF04 


MOV 

BL, dvRec+dvWriteabIe 

; =1 if writeable 

13AE! 

F6 

06 AB04 

10 

TESTSIM 

daRec+daReadBoot)daRoFIag 

; is this read only 

1383! 

74## 


JZ 

$1 

; no 

138 5 ! 

S3 

00 


MOV 

BL, 0 

;mark as read only 

1387! 




$1 



1387! 

82 

FB 01 


CMP 

BL, 1 

; is it uriteab 1 s 

13BA! 

74## 


■JE 

$2 

; yes 




SOOT FOR THE IBM/PC 




; mark as write protect 
; put in BOS mount table 
;point to next entry 
ipoint to DOS volume table 


;point to next entry in table 
;number of entries in use 

; next entry in confie table 
;logical unit 

/pointer to disk parameter table 
;store logical unit 

i store pointer to parameter table 

ilength of 2 entries 

;address of mapping table 
;index into config table 

/•point to next entry 


;parameter table info is in block 
; read block with parm info 


I 

€ 

€ 

€ 

« 

€ 

i 

C 

€ 

I 

I 

€ 

« 

« 

€ 

€ 

€ 

€ 

« 

« 

€ 





f 

I 

€ 

€ 

f 

€ 

f 

I 

t 

t 

I 

f 

f 

f 

< 

< 

t: 

i 

i 


1433! 

06 

PUSH 

ES 

1434! 

8E 06 3F05 

MOV 

ES,dosSeg 

1438! 




1438! 

BE 

LEA 

SI, buffer 1 

143B ! 

SB 3E 4905 

MOV 

DI,cParmAdd 

143F! 




143F ! 

AD 

LODSW 


1440! 

AB 

STOSW 


1441 ! 




1441 ! 

AD 

LODSW 

1442! 

AA 

STG3B 


1443! 




1443! 

AD 

LODSW 

1444! 

AB 

STOSW 

1445! 




1445! 

AD 

LODSW 

1446! 




1446! 

SB 3E 4F05 

MOV 

DI» mapAdd 

144A! 

Ai 5705 

MOV 

AX,mapCount 

144D! 

AA 

STQSB 


144E! 




144E! 

FF 06 4F05 

INC 

mapAd d 

1452! 

83 06 5705 02 

ADD 

map Count, 2 

1457! 




1457! 

07 

POP 

ES 

1458! 

BE B604 

LEA 

SI, dvRec+dvStartBIk 

145B ! 

BF BOOS 

LEA 

DI, block 

145E! 

B9 04 00 

MOV 

CX,addLen 

1481 ! 

F3 A 4 

REP MOVSS 


1463! 




1463! 

BS 03 00 

MOV 

AX, 3 

1466! 




1466! 




1466! 

0140 

mntDvSize 

EQU d vR e c S i z es-mn tMa x 

1466! 

0050 

mntDaSize 

EQU daRecSize*mntMax 

1466! 

OOOA 

mntDrvSize 

EQU mntMax 

1466! 




1466! 

1466 

buffer 

EQU $ 

1466! 

1666 

hoIdBuffer 

EQU buffer+512. 

1466! 




1466 1 

1866 

mntDvTab 

EQU holdBuffer+512. 

1466! 

19A6 

mntDaTab 

EQU mntDvTab+mntDvSize 

1466 ! 

19F6 

mntDrvTab 

EQU mntDaTab+mntDaSiz e 

1466! 




1466! 

1AOO 

bootData 

EQU mntDrvTab+mntDrvSi: 

1466 ! 

1D66 

bootUnit 

EQU b ootData+366H 

1466! 

1AOC 

boot7C0C 

EQU bootData+OCH 

1466! 

1D6E 

b oot7F6E 

EQU bootData+36EH 

1466! 

1070 

boot7F70 

EQU bootData+370H 

1466! 

1D72 

boot7F72 

EQU b o o t Da ta+372H 

1466! 

1D74 

boot7F?4 

EQU bootData+374H 

1466! 

1D80 

boot 7F80 

EQU b o o t Da ta+380H 


14661 

14661 1E00 

14661 


. EQU bootData+1024. 
. END 


d irBuffer 


; sector size in bytes 
;sectors per b lock 


; reserved sectors 


i number of FAT's 

;address of mapping table 
■, index into config table 


■, point to next entry 


;parameter table info is in block 


; used for read routines 
;used for nested table searches 

; ho1d mounted 

. a a 

/ 

*1 81 
t 

;will read IBM. UCSD. BTPARM here 
; boot unit in boot, data fie 
;floppy disk paramters in boot 
; dont know what these are boot th 
ifrom NCI uses them . . something 
; to do with the 'turnkey ' program 
; and the memory configuration 


drive volume tables 
" access 

ti S* 




I 


I 


f 

f 

< 

« 

€ 

( 

f 

I 

f 

I 

« 

l 

r 

€ 

I 

€ 

f 

€ 

f 


Page - 52 CIIBQOs Fils: Symbol Table 


AS 

- Absolute 

LB - Label 

UD — Undefined 

PIC — Ma c r o 

RF 

Ref 

DF - Dsf 

PR - Proc 

FC - Func 

PS 

- Public 

PV — Private 

CS - Consts 



ADBACTIV 

LB 

05F7! 

ADDAL ' !’••• A 

LB 

05F9 { 

ADDLEN 

AB 

0004 * 

ADDTOBLO 

LB 

0918 \ 

AMOUNTED 

LB 

055B 

BABB IGSM 

LB 

03B2 ! 

BADDIMSG 

LB 

0116 

OADMNTHS 

L.B 

0386 \ 

BADOSMSG 

LB 

01A9! 

3ADUNIT5 

LB 

0283! 

SELL 

AB 

0007! 

BIOSADD 

AB 

0600 

3I0SL.EN 

LB 

0541 1 

BLOCK 

LB 

05B0 

BOOT 

LB 

0E53 \ 

B00F7C0C 

LB 

1AOC { 

B00T7F6E 

LB 

t D6E i 

B00T7F70 

LB 

1 D70 I 

BOOT7F72 

LB 

1D72 

300T7F74 

LB 

1D74 * 

B00T7F80 

LB 

11)90 

BOQTDATA 

LB 

1A00 l 

BOOTPARM 

LB 

0334! 

BOOTSTAR 

LB 

003D ! 

BOOTUNIT 

LS 

1D66! 

BS 

AB 

0008 

BUFFER 

LB 

1466! 

CARDTYPE 

LB 

05A1 

CHKNUMDR 

L.B 

08D5 f 

CIIBOOT 

PR 


CCNFIGAD 

LB 

0543! 

CONSTBOQ 

L.B 

0000! 

CONSTMSG 

LB 

007C 

CPARMADD 

LB 

0549 ! 

CPARMCAD 

LB 

054B 

CR 

AB 

GOOD! 

CRLFMSG 

LB 

031D! 

CRYPTNAM 

LB 

057A ! 

CRYPTPAS 

LB 

0584! 

DABOOTFL 

AB 

0001 

DAENO 

AB 

0008 S 

DAMNTINF 

AB 

0006 

DAREADBO 

AB 

0007: 

DAREC 

L.B 

04A4! 

DARECSIZ 

A3 

0003 ! 

DAROF'LAG 

AB 

0010! 

DARF3 

AB 

0040 

DATABLE 

AB 

0000 l 

DAUSERID 

AB 

0000 

DAVQLADD 

AB 

0002; 

DECRYPT N 

LB 

0770! 

DEFATTR 

AB 

0007 i 

DIADD 

LB 

0320 1 

DI300TAD 

AB 

002C 

DICRVADD 

AB 

0024! 

DICRVSIZ 

A T\ 

A *3 

0028 

DIDAADDR 

AB 

0052! 

DIDABLKS 

AB 

0040! 

DIDRIVE 

AB 

0000 ! 

DIDRIVEP 

AB 

OOOA! 

DIDRVINI 

AB 

0034 

DIDRVNO 

AB 

0036 ! 

DIDUADDR 

AB 

004E 

DIDUBLKS 

AB 

003E i 

DIOVADDR 

AB 

004A! 

DIDVBLKS 

AB 

0G3C ! 

DIEND 

AB 

005B ! 

DINAADD 

AB 

0030 

DINUADDR 

AB 

0046 ! 

DINUBLKS 

AB 

003A 

DIONLINE 

AB 

0038 .* 

DIRBUFFE 

LB 

1E00! 

DIREC 

LB 

0429! 

DIRECSIZ 

AS 

005B ! 

DIRES t 

AB 

0035 

DIRES2 

AB 

0039 i 

DIRISFLI 

LB 

05B9 

DIRPB 

AB 

0001 ; 

DISBADDR 

AB 

0056! 

DXSBBLKS 

AB 

I/O 42 * 

DISERVER 

AB 

0012! 

DISERVFA 

AB 

001C 

DISPEC IA 

AB 

0044! 

DITABLE 

AB 

0000 

DIVERS10 

AB 

005A { 

DOSMARK 

LB 

0380 i 

DOSMARKL 

AB 

0006 i 

DOSMNTFI 

LB 

12D8! 

DOSMNTFL 

LB 

1340 

DOSMNTON 

LB 

139ES 

DOSSES 

LB 

053F 

DOTOFF 

AS 

0001 J 

DQTON 

AB 

0000! 

DOTS 

LB 

05A?! 

DRIVE 

LB 

05AF! 

DRVCMD 

LB 

05BB 

DRVRADD 

AB 

0500! 

DRVRFILE 

LB 

0344 

DRVRINIT 

LB 

053B ! 

DRVSONl. I 

LB 

OSAO! 

DUACCESS 

AB 

0016! 

DUBOOTIN 

AB 

0018! 

DUEND 

AB 

0020 

DUMOUNTE 

AB 

0014 i 

DUPASS 

AB 

000A 

DUREC 

LB 

04AC \ 

DURECSI 2 

AB 

0020! 

DUPES1 

AB 

001A; 

DURPB 

A3 

0010! 

DUTASLE 

AB 

0000 

DUUSER 

AB 

0000! 

DUUSERID 

AB 

Qi> 12 

DVBTREC 

LB 

04EC i 

DVEND 

A« 
r* aj 

0020 ' 

DVENDSLK 

AB 

OCOE ! 

DVGLBACC 

AB 

0014! 

DVREC 

LB 

04CC 

DVRECSIZ 

AB 

0020! 

DVRESI 

AB 

0016 

DVRPB 

AB 

0010! 

DVSTARTB 

AB 

OOOA! 

DVTABLF 

AB 

0000! 

DVVOLNAM 

AB 

0000! 

DVVQLOFF 

AB 

0015 

DVVOLTYP 

AB 

0012! 

DVWRITEA 

AB 

0013 

ECHO 

AB 

0000! 

ENCRYPTN 

LB 

0736! 

ENCRYPTP 

LB 

07BF 1 

ERR OK 

LB 

05BA! 

FALSE 

AB 

0001 

FINDSTO! 

LB 

OADF! 

FINDBT02 

LB 

OAF 4 

FINDSTOO 

LB 

0B3B ! 

FINDBT04 

LB 

0B6F! 

FINDBT05 

LB 

OB 9 5 ! 

FINDBT06 

LB 

OBCC ! 

FINDBT07 

LB 

0BE9 

FINDBT08 

LB 

OC18 ! 

FINDBTDI 

LB 

DAD 7 

FINDMT01 

LB 

DC 42 1 

FINDMT02 

L.B 

DC 54 I 

FINDMT03 

LB 

0C9B ! 

FINDMT04 

LB 

OCCF! 

FINDMT05 

LB 

OCEC 

FINDMT06 

LB 

0D2F! 

FINDMT07 

LB 

0D6B 

FINDMT08 

LB 

0D97 1 

findmtdi 

LB 

GC24 i 

FINDMTEN 

LB 

ODAO! 

FINDMTLO 

LB 

ODCO! 

FINDSERV 

LB 

0A4F 

FLATHELL 

LB 

OASC ! 

FLIP 

LB 

0306 

FLIPDA 

LB 

083E! 

FLIPDI 

LB 

080D! 

FLI P D IR 

LB 

OSSF! 

FLIPDU 

LB 

0868! 

FLIPNU 

LB 

0853 

FLQPCOUN 

LB 

0355 l 

FPARMADD 

LB 

0547 

GETPASSW 

LB 

0718! 

GETSTR 

LB 

067D! 

GETSTREC 

LB 

0566 * 

GETSTRLE 

LB 

0564! 

GETUSERI 

LB 

0700 

GOTOXY 

LB 

0644 ! 

HELLO 

LB 

05E5 

HELLONAM 

LB 

05ED! 

HELLOSOU 

LB 

05EA! 

HELLOTYP 

LB 

05EC ! 

H0LD5DRI 

LB 

0538! 

H0LD5DVR 

LB 

0518 

HQLDBLOC 

LB 

05B4 ! 

HQLDBUFF 

LB 

1666 

HOLDNUMB 

LB 

0560! 

HOLDNUMR 

LB 

0562! 

HOME 

LB 

0627! 

IBMDOS 

AB 

0004 i 

IFFLATCA 

MC 

— 

INTERPAD 

LB 

0539 ! 

INVDIMSG 

LB 

013F 

INVPASSM 

LB 

017C * 

INVUSRMS 

LB 

016A! 

IORETCOD 

LB 

0588! 

IRETADD 

LB 

OSDS ! 

LF 

AB 

OOOA 

LOGON 

LB 

093F 1 

LOGON! 

LB 

098D 

L0G0N2 

LB 

09AB ! 

LOGONS 

LB 

09C3! 

LOGONS 

LB 

09D2! 

LOGONS 

L3 

09EE! 

L0G0N6 

LB 

0A2D 

LQG0N7 

LB 

0A4E! 

LOGUNIT 

LB 

0551 

MAKEDRVC 

LB 

0SB3! 

MAPADD 

LB 

054F! 

MAPCOUNT 

LB 

0557! 

MASKMOD 

LB 

03DF ! 

MAXFLOP 

LB 

0559 

MEMMARK 

LB 

0371 ! 

MEMMARKL 

AB 

000F 

MI ISOURC 

LB 

OSDS! 

MNTSLOCK 

AB 

0002! 

MNT COUNT 

LB 

0512! 

MNTDAPOI 

LB 

050E! 

MNTDASIZ 

AB 

0050 

MNTDATAB 

LB 

19A6 ! 

MNTDRVPO 

LB 

0510 

MNTDRVSI 

AB 

OOOA f 

MNTDRVTA 

LB 

19F6! 

KNTBRVWP 

AB 

00 00 ! 

MNTDSKSR 

A3 

0001 i 

MNTDVPOI 

LB 

050C 

MNTDVSIZ 

AS 

0140! 

MNTDVTAB 

s r\ 
i,. D 

1866 

MNTMAX 

AB 

OOOA i 

MNTNUMBL 

AB 

0006 l 

MNTRECSI 

AB 

0C03! 

MNTTABAD 

LB 

0514! 

MNTTABSE 

LB 

0516 

MNTTBL 

AB 

0000! 

MNTTBLEN 

AB 

0008 

MOUNTCOU 

LS 

0553! 

MSDOSSIO 
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